test3.pl

来自「用C语言实现的PL0的源代码」· PL 代码 · 共 11 行

var x,y,temp;
begin
  read(x);
  read(y);
  repeat
    temp:=x-y;
    x:=temp;
  until temp<0;
  write(x)
end.