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

10.2 break Досрочный выход из цикла в Паскаль

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
    if (i >= 4) then
    begin
     writeln(777);
     break;
     end
  end;
end.