СРОЧНО ! Дам 30 поинтов Пожалуйста посчитайте пожалуйста Точный ОТВЕТ, ПОЖАЛУЙСТА!!!

program z1;

var S,X: integer;

begin

S:=0;

X:=1;

while  X < 12 do

begin

S:=S+X;

X:=X+5

end;

write (S)

end.

0       S = 0       X = 1

1        S = 1        X = 6

2       S = 7       X = 11

3       S = 18      X = 16

S = 0       X = 1

пока истинно (ДА) условие X < 12 цикл выполняется

Действия в цикле:

1) S = S + X

2) X = X + 5

Вывод S

S = 0       X = 1

1 < 12     ДА

Действия в цикле:

S = S + X = 0 + 1 = 1

X = X + 5 = 1 + 5 = 6

S = 1       X = 6

6 < 12     ДА

Действия в цикле:

S = S + X = 1 + 6 = 7

X = X + 5 = 6 + 5 = 11

S = 7       X = 11

11 < 12     ДА

Действия в цикле:

S = S + X = 7 + 11 = 18

X = X + 5 = 11 + 5 = 16

S = 18       X = 16

16 < 12     НЕТ

Действия в цикле не выполняются

S = 18       X = 16