2.txt

来自「计算机科学与技术专业课程编译原理的课程实验代码」· 文本 代码 · 共 12 行

CONST final=20,
      final=1000,
      bbb=20;
VAR s;
BEGIN
    s:=final+s+100;
    BEGIN
        READ(s)
        WRITE(final);
        WHILE s>20 DO s:=s+1;
    END;
END.