Код:
var x,y:integer;
begin
readln(x,y);
while (x>0) and (y>0) do
if x>y then x:=x mod y
else y:=y mod x;
writeLn(x+y);
end.
