input.txt

采用递归下降的语法分析器

const a=123.43e455;
var a,b;
procedure a;
while 1+2>3 do a:=4;
begin 
b:=34;
end
;