fdd.pl0

来自「编译原理课程设计（包括语法分析」· PL0 代码 · 共 8 行

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