Помогите пожалуйста составить программу!!! Дана последовательность чисел n. Вычислить сумму. СРОЧНО

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

const n=10;// длинна последовательностиvar a:array [1..n] of integer;sum,i:integer;beginsum:=0;for i:= 1 to n dobeginreadln(a[i]);sum:=sum+a[i];end;writeln('сумма равна= ',sum);end.