uses crt; var tong : int64; i : integer; function t(x : integer ) : int64; var j: int64; i : integer; begin j:=1; for i:=1 to x do j:=j*i; t:=j; end; begin clrscr; tong:=0; for i:=1 to 15 do if i mod 2 = 1 then tong:=tong+t(i); write(tong); readln end.