test1.pl

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

const a=1;
var b,c;
procedure p;
  begin
    c:=b+a
  end;
begin
  read(b);
  while b#0 do
    begin
      call p; write(10*c); read(b)
    end
end.