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

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); end.