test.txt

完整的编译器

program sample;
var
i, j, k,m, n, l	:integer;
begin
k:=2; 
j:=4; 
m:=2;
n:=3;
i:=2;
if true then
i:=(1-(j+1+n)+l*k)+m
else
i:=(5-j)+1;
end.