Реши только вторую задачу

Хорошо, давай рассмотрим вторую задачу в этом списке. Вот код программы:

program n2;
var s,i:integer;
begin
  s := 0;
  i := 4;
  repeat
    s := s + 2*(i - 1);
    i := i - 1;
  until i < 0;
end.

В этой задаче мы должны определить, сколько раз выполнится тело цикла repeat ... until. Чтобы разобраться с этим, давай последовательно пройдемся по шагам выполнения программы.

1. Переменной s присваивается нулевое значение, а переменной i — значение 4.
2. Начинается выполнение цикла repeat.
3. В теле цикла переменной s присваивается новое значение, которое равно предыдущему значению s плюс удвоенное значение i - 1. При первом проходе i равно 4, так что s становится s + 2*(4 - 1) = s + 6.
4. После этого i уменьшается на единицу, теперь i равно 3.
5. Условие цикла until i < 0 не выполнено (3 не меньше 0), значит цикл будет выполняться снова.

Далее процесс повторяется:

• Во второй раз s увеличится на 2*(3 - 1) = s + 4, i уменьшится до 2.
• В третий раз s увеличится на 2*(2 - 1) = s + 2, i уменьшится до 1.
• В четвертый раз s увеличится на `2*(1 -