test1.pas

来自「一个pascal编译器,其中编译模块是独立的,可以进行任何slr语法分析,这个编」· PAS 代码 · 共 13 行

program pp;
var i;
procedure b;
var j;
begin
j:=i+j;
write(i,j)
end;
begin
i:=0;
i:=i+2;
write(i)
end.