d1:=n1;
d2:=n2;
while d1<>d2 do
begin
if d1>d2 then
while (n1 mod d1 )<>0 do
d1:=d1-1;
if d2>d1 then
while (n2 mod d2)<>0 do
d2:=d2-1;