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

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.