2.txt

计算机科学与技术专业课程编译原理的课程实验代码

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.