Что будет напечатано ** экране после выполнения программы Var I,S: integer...

Question

Что будет напечатано на экране после выполнения программы Var I,S: integer begin S:=0 for I:=1 to 10 do begin if I<6 then S:=S+2 else S:=S-1 end write(s); end

Answer 1

5

Мне максимально лень полностью описывать действия.

1) i = 1, s = 2 (0+2)

2)i = 2, s = 4 (2+2)

...

6)i = 6, s =9 (10-1)

7)i = 7, s = 8 (9 - 1)

...

10)i = 10, s = 5 (6 - 5)