Среднее арифметическое всех четных чисел, ПОМОГИТЕ ДО КОНЦА РЕШИТЬ! СОВСЕМ НЕМНОЖКО!!! Опции

[йцукен]

У меня вот задача:
Найти сумму чисел, вводимых с пульта, и среднее арифметическое этих чисел, если они заранее неизвестны. Программа должна суммировать только четные числа.
Вот что у меня получилось:

 program sum6;
var
S: real;
str: string;
a, ch: integer;
Begin
ch:=0;
S:=0;
Writeln ('С помощью этой программы можно вычислить сумму любого количества четных чисел и их среднее арифметическое. Вас это интересует? Д/Н');
Readln(str);
if str='Д' then
Begin
Writeln ('В таком случае введите первое число');
Readln (a);
if (a mod 2 = 0) then
begin
While str='Д' do
begin
s:=s+a;
ch:=ch+1;
writeln ('Еще вводить числа будете? Д/Н');
Readln(str);
if str='Д' then begin writeln ('Введите число'); readln (a); end;
end;
write ('S=', S, 'Среднее арифметическое', S/ch);
end
else write ('Вы ввели нечетное число!');
readln;
end
else write ('Извините, эта программа не для Вас.');
readln;
end. 

.

Но дело в том, что когда я проверяла программу, выяснилось вот что:
если ввожу НЕчетное число в первый раз, она говорит, что "Вы ввели нечетное число".
А когда я ввожу сначала четное число, потом она меня спрашивает "Еще вводить числа будете?", я отвечаю Д, потом ввожу НЕчетное число (для проверки), и она его принимает! А мне же надо, чтоб она суммировала только четные... Куда и что вставить?..
Извините за длинное и путанное объяснение)))
Надеюсь ,вы мне поможете!

Сообщение отредактировано: йцукен - 17.12.2006 20:40