repeat.pl0

来自「Ｃ＋＋build开发的ＰＬ／０编译器。。。。修改了一些功能」· PL0 代码 · 共 10 行

PROGRAM REP;
   VAR B,C; 
  BEGIN 
    C:=0;
    READ(B);
    REPEAT C++;
    DOWHILE C<B; 
    WRITE(C);
  END.