Ввести с клавиатуры 9 производных чисел (положительных и отрицательных). Вычислить среднее арифметическое нечетных и отрицательных из них. Нужна программа для паскаля.

var x,i,s,k:integer;begins:=0; k:=0;for i:=1 to 9 do beginreadln(x);if (x<0) and (x mod 2<>0) then begins:=x+s;k:=k+1;end; end;writeln(s/k);end.