const N=30;
var s1,s2:integer;
i: integer;
begin
s1:=0;
s2:=0;
for i:=100 to 999 do 
if (i mod 2=0) then s1:=s1+i 
else s2:=s2+i;
writeln ('сумма четных равна',' ',s1);
writeln ('сумма нечетных равна',' ',s2);
end.