Написать на Паскале программу нахождения суммы, произведения и среднего значения элементов массива, кол-во элементов ввести в программе.

var

s, p:int64;

i, kol, m:integer;

a:array of integer;

begin

readln (kol) ;

s:=0;

p:=0;

m:=0;

setlength (a, kol) ;

for i : = 1 to kol do

begin

read (a[i]) ;

s:=s+a[i];

p:=p*a[i];

end;

m:=s div kol;

writeln ('Сумма ', s) ;

writeln ('Произведение', p) ;

writeln ('Среднее значение', m) ;

end.