test1.txt

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

program example4;  
var  A,B,C,D:integer; 
begin
  A:=1; B:=5; C:=3; D:=4;
  while A<B and B>D  do
if A=1 then C:=C+1 else
while A<=D do A:=A*2 
end.