call2.txt

PL0语言的编译器

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.