Помогите в программе Pascal (линейный, ветвление и циклический)
Разработайте  схему  алгоритма 
для  вычисления произведения P = (-1) * 2 * (-3) * 4 * (-5)
*... * n. Используйте два цикла: один для вычисления произведения нечетных
чисел P1,
второй - для вычисления произведения четных чисел P2.

var a,n,x,p1,p2:integer;beginreadln(n);x:=-1;a:=0;p1:=1;p2:=1;while abs(a)<n do beginx:=x*(-1);a:=(abs(a)+1)*x*(-1);if abs(a)mod 2=0 thenp2:=p2*aelsep1:=p1*a;end;writeln(p1);writeln(p2);end.