test3.pl

用C语言实现的PL0的源代码

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