Запишите сумму значений элементов массива, сформированного следующим образом:
for i:=1 to 5 do
a[i]:=i*i;