var
  i:integer;
begin
  i := 0;
  while true do
    begin
      i := i + 1;
      if i = 10 then continue;
    end;
end;