Напишите программку на Паскале.Дан массив положительных и отрицательных чисел. Вычислить

как заполнять массив

рандом либо с клавиатуры?

Const m=10;
var
a:array[1..m] of integer;
i,sum,proz:integer;
begin
sum:=0;
proz:=1;
for i:=1 to m do
begin
read(a[i]);
if a[i]gt;0 then
sum:=sum+a[i]
else
ifa[i]lt;0 then
proz:=proz*a[i];
end;
writeln('Сумма положительных чисел= ',sum,' Творение отрицательных чисел= ',proz);end.