program h247;
var i, n, tich, tong: integer;
begin
write('Nhap n '); readln(n);
tich:=1;
tong:=0;
for i:=1 to n do
begin
if i mod 2=0 then tich:=tich*i;
if i mod 2<>0 then tong:=tong+i;
end;
writeln('Tich cac so chan la ',tich);
writeln('Tong cac so le la ',tong);
end.