repeat.plx

来自「一个PLX教学编译器IDE」· PLX 代码 · 共 18 行

//                 Author  :  Tuwei                                               //
//                 Copyright All Reserved                                         //
//                                                                                //
//                 Function:  text 'repeat' sentence.                             //
////////////////////////////////////////////////////////////////////////////////////

program
integer a,c;
logical b
begin
  a := -8;
  c := 11;

  repeat
    a := a+1;
    write a;
  until a>0;
end.