В представленном фрагменте программы значения одномерного массива задаются
с помощью оператора цикла. Чему будет равно A

?
For i := 1 To 5 Do
Begin
A := i;
A := i*i
End;