var
  i:integer;
begin
  i := 0;
  repeat
    i := i + 1;
    if i = 10 then break;
  until false;
end;