test2.txt

来自「编译原理中的语法分析」· 文本 代码 · 共 7 行

program p;
var a,b:integer;
procedure p1(a:integer;);{分程序中有参数列表的情况}
begin{这是分程序的复合语句}
a:=4;
if a<1 then b:=a+2 else b:=3;
end;.