program asdfav;
var sum,n:byte;
begin
sum:=0;
writeln('введите n');
readln(n);
while n<>0 do
  begin
  if (n<0) and ( n mod 2 <>  0)  then
      sum:=sum+n;
    writeln(' sum =');
  readln(n);
  end;
end.