gcd.pl

实现编译

var x,y,rem;
begin
  read(x);
  read(y);
  repeat
    rem:=x-y*(x/y);
    x:=y;
    y:=rem
  until rem=0;
  write(x)
end.