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

 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. 

.

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

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

Вводим букву 'Д' потом число 3 потом букву 'Н' и о чудо, получаем DivByZero !

Исправляем:

      
        if ch<>0 then
           write ('S=', S:0:0, 'Среднее арифметическое', S/ch:0:2)
        else
           write('Не было введено ни одного четного числа');

Спасибо вам огромное, но можно вас еще помучать и попросить как нибудь заменить until? Мы просто этого еще не проходили, а эта задача на while!

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