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

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

Модицифируйте код:

var i:integer;
begin
for i:=1 to 10 do
begin
writeln(777);
break;
end;

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

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

  readln();
end.