Массив из 8 элементов задан случайными числами. Найти сумму всех элементов массива и выведите значение на экран. Выведите на экран все элементы массива в столбик.

Program massiv;

Const n=100;

Var a:array[1..n] of integer;

   i,s:integer;

Begin

s:=0;

For i:=1 to n do

Begin

 a[i]:=i*i;

 Write(a[i]:6);

 s:=s+a[i];

end;

WriteLn;

Write('Сумма=',s);

end.

если бы тут был коллаб...