function NOD(a, b: Longint): Longint;
begin
while (a <> 0) and ( b<> 0) do
if (a > b) then
a := a mod b
else
b := b mod a;
if (a = 0) then
result := b
else
result := a;
end;
Отличные курсы английского языка в Англии