Обусловьте, что будет напечатано в итоге выполнения последующей программки: program

Обусловьте, что будет напечатано в результате исполнения следующей программки:
program mass5;
var a: array [1..6] of integer
i,s,sr: integer;
begin
for i:=1 to 6 do a[ i ]:=i+3
s:=0
for i:=1 to 6 do
s:=s + a i ];
sr:=s/3;
writlen('sr=' ,sr)
end.