Вычислить сумму первых 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.