t1.txt

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

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.