repeat1.pl0

来自「plo词法分析程序」· PL0 代码 · 共 13 行

PROGRAM E01;
VAR SUM,N;
BEGIN
  SUM:=0;
  READ(N);
  REPEAT SUM++;
         N++;
  WRITE(SUM);
  UNTIL  N>=0;
  WRITE(SUM);
  WRITE(N);
END.