Напишите программу,которая в последовательности целых чисел определяет 1.количество четных отрицательных чисел
2.среднее арифметическое нечётных чисел
Программа получает на вход целые числа, количество введёных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность.

var a,k1,k2,s:integer;beginwriteln('Вводите целые числа. Конец ввода - 0');k1:=0;k2:=0;s:=0;readln(a);while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end;writeln('количество четных отрицательных чисел = ',k1);if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел');end.Пример:Вводите целые числа. Конец ввода - 018-4510-62700количество четных отрицательных чисел = 1среднее арифметическое нечётных чисел = -45