program t12;
var
  i : integer ;
begin
  i := 0 ;
  repeat
    i := i + 1
  until i > 5
end.