var a,b,m,n,i:integer;

Begin
Write(' Введите 2 числа: '); Readln(A,B);

if (A < B) then M:=A else M:=B;

for i:=1 to m do if (A mod i = 0) and (B mod i = 0) then N:=i;

Writeln(' НОД= ',N);
Readln;
end.