[beavi5]

наибольший общий делитель

Код:

readln(a,b);
while a<>b do
if a>b then
a:=a-b
else
b:=b-a;
writeln(a);