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