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