standard.pl

来自「Win32 Console下C++实现的PL/0语言编译程序」· PL 代码 · 共 15 行

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.