t2.txt

来自「进行语法的分析」· 文本 代码 · 共 10 行

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