В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do

Begin

A[2*i - 1] := i;

A[2*i] := i*i

End.