[vitalik007]

function Nod(a,b:integer):integer;
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;