Впрограмме pascal (линейный, ветвление и циклический) разработайте схему алгоритма для вычисления произведения p = (-1) * 2 * (-3) * 4 * (-5) * * n. используйте два цикла: один для вычисления произведения нечетных чисел p1, второй - для вычисления произведения четных чисел p2.

Var 
a,n,x,p1,p2:integer;
begin
readln(n);
x:=-1;
a:=0;
p1:=1;
p2:=1;
while abs(a)<n do begin
x:=x*(-1);
a:=(abs(a)+1)*x*(-1);
if abs(a)mod 2=0 then
p2:=p2*a
else
p1:=p1*a;
end;
writeln(p1);
writeln(p2);
end.