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

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.