test1.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.