test2.txt

来自「八、 设计SAMPLE语言的语法、语义分析器」· 文本 代码 · 共 7 行

program example5;
var  A,B,C,D,W:integer;
begin
A:=5; B:=4; C:=3; D:=2; W:=1;
if W<=1 then A:=B*C+B/D
else repeat A:=A+1 until A<0
end.