test1.pl

来自「该包中包含一个pl0文法要求和根据此文法编写的编译器」· PL 代码 · 共 14 行

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