Вычислить сумму и произведение десяти элементов массива введенных пользователем с клавиатуры.

vara: array[1..10] of integer;i, p, s: integer;beginfor i:=1 to 10 doreadln(a[i]);p:=1; s:=0;for i:=1 to 10 dobeginp:=p*a[i];inc(s, a[i]);end;writeln(s);writeln(p);end.

var  a:array[1..10]of longint; n,m,k,i,l:longint;begin  for i:=1 to 10 do begin  readln(a[i]);   k:=k*a[i];   n:=n+a[i];end; writeln('Сумма: ',n);   writeln('Произведение: ',k); readln;end.