Помогите в программе Pascal (линейный, ветвление и циклический)Разработайте схему...

Question

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

Answer 1

Var 
a,n,x,p1,p2:integer;
begin
readln(n);
x:=-1;
a:=0;
p1:=1;
p2:=1;
while abs(a)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.