Составе программу: 1) в линейном массиве найти произведение…

Program qq; const n=10var a: array[1… n] of integer; i,p: integer; beginfor i: =1 to n do beginwriteln ('Введите Элементы масивa a[',i,']'=); readln (a[i]); if a[i]>0 then p: =p*a[i]; end; writeln ('Произведение эл-ов массива=' ,p); writeln ('отрицательные эл-ты'); for i: =1 to n do if a[i]<0 then write (a[i],'); readlnend.