Задача 1 Урок 10.2

Задача 1 Урок 10.2

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

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