Вычислить сумму первых N чисел натурального ряда. С использованием операторов цикла For-To (или For-Downto), While-Do и Repeat-Until. Паскаль

Const 
c=10; 
var a:array[1..c] of integer; 
n,i,s:integer; 
begin 
writeln(Введите элементы массива); 
for i:=1 to c do 
read(a[i]); 
writeln(Введите количество первых N чисел); 
read(n); 
for i:=1 to n do 
s:=s+a[i]; 
writeln(Сумма первых , n, чисел массива = , s); 
end.