var a,b,i:integer; begin a:=0; b:=1; for i:=1 to 10 do if i mod 2=0 then a:=a+i else b:=B*i; write (a,' ',b) end.