Найти значение переменной S при n=5, I=0
for i:= 1 to n do
Begin
A[I]:=i
S:= S + A[i]:
End