var s,p:real;
i:integer;
Begin
p:=1;
for i := 1 to 14 do
if i mod 2 = 0 then p:=p*i
else s:=s+i;
writeln(p,s);
End.
var s,p:real;
i:integer;
Begin
p:=1;
for i := 1 to 14 do
if i mod 2 = 0 then p:=p*i
else s:=s+i;
writeln(p,s);
End.