program Project7; {$APPTYPE CONSOLE} var i,D:integer; begin writeln('Dobutok');D:=1; for i:=-20 to 20 do begin if i=0 then continue; if i mod 4=0 then D:=D*i;end; write(D,' '); readln; end.