Написать на Паскале программу нахождения суммы…

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.