Pascal 求最大公约数，辗转相除法。

var
  a, b, t: longint;
begin
  readln(a, b);
  while (b <> 0) do
  begin
    t := a mod b;
    a := b;
    b := t;
  end;

  Writeln(a);
  readln;

end.