e01.pl0

plo词法分析程序

PROGRAM EX01;
VAR SUM,I,M;
BEGIN
 I:=0;
  SUM:=0;
  READ(M);
  IF M>0
  THEN BEGIN
       REPEAT ++I;
              SUM+=I;
              M--;
       UNTIL  M=0;
       END
  ELSE SUM:=0;
  WRITE(I);
  WRITE(SUM)
END.