const
  n=10; { Размер массива }

var
 a:array[1..n] of integer; {Сам массив}
 i:integer; {Индексная переменная (для получения отдельного элемента a[i]
             в циклах for }
 sum:integer; {Сумматор, т.е. переменная для накопления суммы в цикле for}

begin
  { Цикл для задания значений массива }
  for i:=1 to n do
    {Вычисление значения одного элемента a[i] (так, чтобы при i=n получилось n^2+1 )}
    a[i]:=i*i+1;

  {Начальное обнуление переменной sum (предназначенной для суммирования)}
  sum:=0;
  {Цикл для суммирования элементов массива}
  for i:=1 to n do
    {Добавление в sum одного элемента a[i]}
    sum:=sum+a[i];

  {Вывод результата}
  Write('Sum= ',sum);
  Readln;
end.