Дан массив случайных чисел, получить сумму и произведение элементов массива

const n = 10; / / кол-во элементов в массиве

var i, sum, proiz: longint;

a: array [ 1 ... n] of longint;

begin sum:=0; proiz:=1;

for i : = 1 to n do

begin

a[i] : = random (10) + 1; / / заполнение массива

write (a[i], ' ') ; / / вывод

end;

writeln;

for i : = 1 to n do

begin

sum : = sum + a[i]; / / сумма

proiz : = proiz * a[i]; / / произведение

end; writeln ('сумма ', sum) ;

writeln ('произведение ', proiz) ;

e nd.