Program da;
var i,n:integer;
p:integer;
begin

n:=300;
for i:=1 to n do
if (i mod 2=0) then
p:=p*i;
writeln ('P=', p);
readln;
end.