test3.txt

你是不是很想要词法分析的源代码呢？！哈哈

program  example2;
var  A,B,C:integer;
     X,Y:bool;
begin  /*  this  is  an  example  
  A:=B*C+37;
  X:='ABC
  d<=21;
end.