Cоставить программу в паскале. В одномерном массиве произвольных чисел вычислить произведение четных и нечетных элементов.

Var a : array [1..10] of integer;I, p1, p2: integer;BeginI:=1;P1:=1; p2:=1;For i := 1 to 10 do a[i] := random(10);While i<=10 do beginIf i mod 2 <> 0 then p1:=p1 *a[i] else p2:= p2 * a[i];I := i +1;End;Write(p1,' ',p2)End.