Сформируйте одномерный массив из 4 элементов ( значения элементов зависит от порядкового номера массива и вычисляется по формуле i^2) . вычислить сумму значений элементов одномерного массива.

Const n = 4;
var
  a: Array [1..n] of Integer;
  sum, i: Integer;

begin
  for i := 1 To n Do begin
    a[i] := i * i;
    sum := sum + a[i];
  end;
  WriteLn(sum);
end.

Program Zadacha;
Var a: Array [1..4] of Integer;
sum, i: Integer;
Begin
For i := 1 To 4 Do
Begin
a[i] := i * 2;
sum := sum + a[i];
End;
WriteLn('Сумма: ', sum);
ReadLn;
End.