var 
i,s,p:integer;
begin
s:=0;
p:=1;
for i:=1 to 10 do begin
if (i mod 2<>0) then p:=p*i else 
if (i mod 2 =0) then s:=s+i;
end;
writeln ('Summa=',s);
writeln ('Proizvedenie=',p);
end.