Помогите сделать до завтра, пожалуйста, очень срочно!!!
Вычислить произведение положительных элементов массива состоящего из 10 элементов заполненных случайными числами от -100 да +100. В паскале.

const n=10;var a:array[1..n] of integer;i:integer; p:real;beginRandomize;writeln('Массив A:');for i:=1 to n do begin a[i]:=random(201)-100; write(a[i]:4); end;writeln;p:=1;for i:=1 to n do if a[i]>0 then p:=p*a[i];writeln('p = ',p:9:0);end.Пример:Массив A:-34 58 -9 -15 -37 57 -9 22 69 43p = 215795844

Program massiv;Var a:array [1..10] of integer;i:integer; p:real;Beginp:=1;For i:=1 to 10 doa[i]:=random (100+100+1)-100;For i:=1 to 10 doIf a[i]>0 thenp:=p*a[i];Writeln ('Произведение положительных чисел массива = ',p); end.