t12_repeat.pas 93 B

123456789
  1. program t12;
  2. var
  3. i : integer ;
  4. begin
  5. i := 0 ;
  6. repeat
  7. i := i + 1
  8. until i > 5
  9. end.