Решите 3 задачу очень срочно

Question

Решите 3 задачу очень срочно

---

Answer 1

Program prog;
uses crt;

var i,n,p: integer;

begin
clrscr;
write('Введите число N = ');
readln(n);
p:=1;
for i:=1 to n do

if i mod 2 = 0 then p:=p*i;

writeln('P = ',p);
end.