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

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

Найти:

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

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

Program p1;
Const N=10;
Var A:array[1..N] of integer;
proizvedenie,i:integer;
Begin
proizvedenie:=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.