gcd.pl

Win32 Console下C++实现的PL/0语言编译程序

var x,y,rem;
begin
  read(x);
while x #0 do
begin
  read(y);
  rem := 1;
  while rem # 0 do
  begin
    rem:=x-y*(x/y);
    x:=y;
    y:=rem
  end;
  write(x);
  read(x);
end;
end.