Дан массив из 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.