pl0.txt

来自「编译原理」· 文本 代码 · 共 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.