t.pl0

来自「pl0编译器,包括词法分析,语法语义分析,以及解释执行」· PL0 代码 · 共 13 行

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.