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

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