call2.txt

来自「PL0语言的编译器」· 文本 代码 · 共 17 行

var a;
procedure   p;
	var b;
	procedure  q;
		var c;
		begin
			c:=2;
			b:=2+3+4-1+5*6*(1+3/2)/3+1
		end;
	begin
		read(a)
	end;
   begin
        write(a)
   end.