Решение задачи 1 из главы 10.2

Решение задачи 1 из главы 10.2

Модицифируйте код таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

program Project1;
var i:integer;
begin
  for i:=1 to 10 do
  begin
     if (i = 4) then
     begin
          writeln(777);
          break;
     end;
  end;
  readln();
end.