Дан массив из 10 элементов заполнение и вывод при помощи цикла заполнение random любого числа найдите сумму и произведение всех элементов массива

Var a:array[1 ... 10] of Integer;

p, i, s:integer;

Begin

p:=1;

WriteLn ('Массив');

For i: = 1 to 10 do

begin

a[i]:=Random (20) - 10;

Write (a[i]:3);

p:=p*a[i];

s:=s+a[i];

end;

WriteLn;

WriteLn ('Сумма элементов массива = ', s);

WriteLn ('Произведение элементов массива = ', p)

end.