TP3/shell/tests/fixtures/t12_repeat.pas

program t12;
var
  i : integer ;
begin
  i := 0 ;
  repeat
    i := i + 1
  until i > 5 ;
  writeln (i) ;
  i := 9 ;
  repeat
    i := 99
  until i > 5 ;
  writeln (i)
end.