repeat,dowhile.pl0

来自「pl0编译器源码」· PL0 代码 · 共 13 行

PROGRAM EX05;
VAR I,J,K;
BEGIN
  I:=5;
  J:=0;
  REPEAT
    BEGIN
      J:=J+1;
      K:=I+J;
    END
  DOWHILE I>J;
  WRITE(K)
END.