test4.pl0

来自「很详细的PL0编译演示程序,学习编译的极品!」· PL0 代码 · 共 16 行

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.