call.txt

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

var a;
procedure   p;
	var b;
	procedure  q;
		var c;
		begin
		      read(c);
		      read(b)
		end;
	begin
                      call q;
	      read(a)
	end;
begin
        call p;
        write(a)
end.