var
  i:integer;
begin
  for i := 0 to 10 do
    if i = 5 then break;
end;