test.txt

设计SAMPLE语言的词法分析器 检查要求： a] 启动程序后

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