Составить программу вычисления в массиве a, содержащего n элементов, произведения отрицательных чисел, кратных трем.

var n,i,p:longint;a:array[1..1000000] of longint;beginreadln(n);for i:=1 to n doread(a[i]);p:=1;for i:=1 to n do     if (a[i]<0) and(a[i] mod 3 =0) then p:=p*a[i];writeln(p);End.