test.txt

来自「Java编写的PL0编译器」· 文本 代码 · 共 15 行

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.