Задача на паскале.

Задан массив А размерности N случайным образом.

Найти:

1) произведение отрицательных элементов

2) количество элементов, кратных 3

Program p1;Const N=10;Var A:array[1..N] of integer; proizvedenie,i:integer;Beginproizvedenie:=1; For i:= 1 to n do Begin A[i]:=random(101)-50; Write(A[i],' '); End; Writeln; For i:= 1 to n do If a[i]<0 then proizvedenie:=proizvedenie*A[i]; Writeln('Произведение = ', proizvedenie);End.

Program p2;Const N=10;Var A:array[1..N] of integer; kolvo,i:integer;Begin For i:= 1 to n do Begin A[i]:=random(101)-50; Write(A[i],' '); End; Writeln; For i:= 1 to n do If a[i] mod 3=0 then kolvo:=kolvo+1; Writeln('Кратных трём элементов ',kolvo, ' штук');End.

program massiv;

var

a,b,i,n,d,e,s:integer;

m:array[1..n] of integer;

begin

readln(n);

for i:=1 to n do

readln(m[i]);

a:=1;

b:=0;

for i:=1 to n do

begin

if m[i]<0 then a:=a*m[i];

if (m[i] mod 3 = 0) then b:=b+1;

end;

writeln(a,'    ',b);

end.