ПОМОГИТЕ С ПРОГРАММОЙ, ПОЖАЛУЙСТА!
нужно написать программу, которая по вводу с клавиатуры последовательности целых чисел (признак окончания ввода- ввод числа 0) подсчитывает среднее арифметическое НЕЧЕТНЫХ чисел и чисел, КРАТНЫХ 5.

Var
   A,i:integer;
   B:real;
Begin
repeat
Writeln(Введи число.);
ReadLn(A);
if (A mod 10 =0) then
 Begin
  i:=i+1;
  B:=A+B;
 End;
until (A=0);
WriteLn(Среднее арифметическое нечетных чисел кратных 5 равно: ,B/(i-1));
ReadLn
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.