Составить ! дана последовательность чисел n. вычислить сумму.

Const n=10;// длинна последовательности

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

sum,i:integer;

begin

sum:=0;

for i:= 1 to n do

begin

readln(a[i]);

sum:=sum+a[i];

end;

writeln('сумма равна= ',sum);

end.