t1.txt

进行语法的分析

PROGRAM TEST;
CONST A=12,B=34,C=56
VAR I,SUM:LONG;
BEGIN
  SUM:=0; 
  I:=1;
  WHILE I<10 DO SUM:=SUM+I;
  WRITE (SUM);
  IF ODD SUM+I THEN I:=0;
END.