Какое значение примет переменная 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];