var a,b,i,r:integer;
begin
b:=0;
a:=0;
for i:=1 to 10 do begin
if (i mod 2 = 0) Then a:=a+i Else b:=b+i;
end;
writeln('сумма четных ',a);
writeln('сумма нечетных ',b);
end.
