Паскаль нужна помощь.

нужна помощь. у меня не работает программа. нужно найти среднее арифметическое нечетный цифр. программа получает на вход целые положительные числа,количество введенных цифр неизвестно,последовательность чисел заканчивается числом 0.
Количество введённых чисел не превышает 1000. Все числа не превышают 10000.
Программа должна вывести одно число:среднее арифметическое нечетных чисел.
сама программа:
var
a,b,c:integer;
Sred:real;
begin
c:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 <> 0 ) and (a < 10000) then
c:=c+1;
b:=b+a;
readln(a);
end;
Sred:=b/c;
writeln(Sred);
end.

короче ввожу я значит 7,2,5,0 и выводит он мне вместо 6,7. он почему то складывает еще 2. где ошибка

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.