Помогите пожалуйста! Написать программу , которая вычислит отдельные суммы четных и нечетных чисел натурального ряда и их произведения

ConstN = 7;VarA:array[1..N]of integer;i:integer;S,Sn,P,Pn:real;BeginS:=0;Sn:=0;P:=1;Pn:=1;For i:= 1 to N doBeginA[i]:=random(7)+1;Write(A[i],' ');if A[i] mod 2 = 0 thenBeginS:=S+A[i];P:=P*A[i];EndelseBeginSn:=Sn+A[i];Pn:=Pn*A[i];EndEnd;WriteLn;WriteLn('Сумма чётных элементов =',S);WriteLn('Произведение чётных элементов =',P);WriteLn('Сумма НЕчётных элементов =',Sn);WriteLn('Произведение НЕчётных элементов =',Pn);End.