Текст подпрограммы и версий
pa11i_p.zip  		Тексты тестовых примеров
tpa11i_p.zip 

Функция:  PA11I (модуль PA11I_p)

Назначение

Вычисление общего наибольшего делителя двух целых чисел.

Математическое описание

Подпрограмма - функция PA11I, имеющая целый тип, использует алгоритм Евклида для вычисления общего наибольшего делителя двух целых чисел M и N, которые могут быть заданы как отрицательными, так и положительными.

Использование 

function PA11I(M :Integer; N :Integer): Integer; 

   Параметры
     M, N - заданные значения целых чисел, для которых ищется общий наибольший делитель (тип: целый). 
   Версии:  нет 
   Вызываемые подпрограммы:  нет 
   Замечания по использованию:  нет

Пример использования 

Unit tpa11i_p;
interface
uses
SysUtils, Math, { Delphi }
LStruct, Lfunc, UtRes_p, PA11I_p;

function tpa11i: String; 

implementation

function tpa11i: String;
var
L :Integer;
begin
Result := '';
L := PA11I(252,441);
Result := Result + Format('%5d',[L]) + #$0D#$0A;
UtRes('tpa11i',Result);  { вывод результатов в файл tpa11i.res }
exit;
end;

end.

Результат:   L = 63