Какое значение примет переменная S после выполнения следующего фрагмента программы?

Var s, i : integer;

a: array [1..5] of integer;

For i:=1 to 5 do a[i]:=2;

s:=0;

For i:=2 to 5 do s:=s+i+a[i];

0+2+2 = 4;

4+3+2 = 9;

9+4+2 = 15;

15+5+2 = 22;