Составить программу нахождения суммы чисел -5, -2, 1, .паскаль

#include < stdio.h> int main() { int s=0; for (int i=-5; i< =10; i+=3) s+=i; printf("%d", s); return 0; }

Program programma; uses crt; var i,j,m, n, k: integer;       a: array [1..100, 1..100] of integer; begin clrscr;           randomize;           write('n = '); readln(n);           write('m = '); readln(m);           for i: =1 to n do                   begin                   for j: = 1 to m do                   a[i,j]: =random(50);           end;           writeln;           k: =0;           for i: =1 to n do           begin           for j: = 1 to m do           write(a[i,j]: 5);           writeln;           end;           for i: =1 to n do           begin           for j: = 1 to m-1 do                   if  (a[i,j]< =a[i,j+1]) then  k: =k+1;                   writeln;                   if (k=m-1) then writeln ('номер строки: ', i);                   k: =0;           end; end.

1) var n,a,s,i: integer; begin write('n = '); readln(n); writeln('введите ',n,' чисел: '); s: =0; for i: =1 to n do   begin   read(a);   s: =s+a;   end; writeln('s = ',s); end. 2)var n,a,s,i: integer; begin write('n = '); readln(n); writeln('введите ',n,' чисел: '); s: =0; i: =0; repeat   i: =i+1;   read(a);   s: =s+a; until i=n; writeln('s = ',s); end. 3) var n,a,s,i: integer; begin write('n = '); readln(n); writeln('введите ',n,' чисел: '); s: =0; i: =0; while i< n do   begin   i: =i+1;   read(a);   s: =s+a;   end; writeln('s = ',s); end. пример: n = 5 введите 5 чисел: 8 2 9 6 4 s = 29