Урок 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 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
    writeln(i, ' '); // это чтобы посмотреть, что происходит в цикле
    if (i = 4) then  // проверка на четвертый виток
      writeln(777) // вывод на экран на четвертом витке
    else if (i = 5) then //проверка на пятый виток
        break; // выход из цикла на пятом витке
  end;
  readln();
end. 

Вывод в консоли:

1
2
3
4
777
5