fdd.pl0

编译原理源码（包括语法分析

PROGRAM TEST;
VAR A,C;
BEGIN
  FOR A:=5 DOWNTO 1 DO  
  C+=A;
  WRITE(C);
END.