Помогите пожалуйста составить программу!!! Дана последовательность чисел 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.

можно и без массива