Паскаль.
вводятся числа, последнее число "0", определить сколько в них положительных нечетных и найти сумму отрицательных. 
Помогитеее!!

var  n,k,x: integer;beginrepeat  readln(x);  if x<0 then n:=n+x;  if (x mod 2=1) then k:=k+1;  until x=0;writeln('Число нечетных положительных: ',k);writeln('Сумма отрицательных: ',n);end.