example3.txt

来自「plo 清华版的第二章的那个！！ 1． 基本内容（成绩范围：“中”、“及格”或」· 文本 代码 · 共 15 行

var i;
procedure p;
begin
  i := 2;
end;
procedure q;
begin
  i := i + 1;
end;
begin
  i := 1;
  call p;
  call q;
end.