Даны два

числа. Найти их наибольший общий делитель.

(Паскаль)

Var n, k, nod:integer;

begin

readln (n, k) ;

if (n > k) then

begin

nod:=k;

end;

if (n < k) then

begin

nod:=n

end;

if (n = k) then

begin

nod:=n;

end;

while (true) do

begin

if (k mod nod 0) then nod:=nod-1;

if (n mod nod 0) then nod:=nod-1;

if (k mod nod = 0) and (n mod nod = 0) then break;

end;

writeln ('Наименьший общий делитель: ', nod) ;

end.