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

Var  n,k,x: integer;
begin
repeat
  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.