var i, a, b:integer; 
z:real;
m:integer;
begin
 writeln('Введите a');
 readln(a);
 writeln('Введите b');
 readln(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 z:=i;
 writeln('Наибольший общий делитель: ',z);
 readln;
end.