Найти среднее арифметическое нечетных положительных элементов - Pascal ABC

Формулировка задачи:

Уважаемые программисты! Надеюсь на вашу поддержку, мне нужна программа Написать программу которая находит и выводит среднее арифметическое значение всех нечетных положительных элементов заданной числовой последовательности. Количество элементов в последовательности равно 20. Элементы последовательности могут принимать целые значения от -1000 до 1000. Спасибо!

Решение задачи: «Найти среднее арифметическое нечетных положительных элементов»

Листинг программы

const n=20;
var i,a,k:integer;
    sr:real;
begin
sr:=0;
k:=0;
writeln('Введите ',n,' целых чисел от -1000 до 1000');
for i:=1 to n do
 begin
  readln(a);
  if(a>0)and odd(a) then
   begin
    inc(k);
    sr:=sr+a;
   end;
 end;
if k=0 then write('Нет положительных нечетных чисел')
else
 begin
  sr:=sr/k;
  write('Среднее положительных нечетных чисел=',sr:0:2);
 end;
end.

Объяснение кода листинга программы

Переменная n инициализируется значением 20.
Объявляются переменные i, a и k типа integer, и переменная sr типа real.
Выводится приглашение для ввода n целых чисел от -1000 до 1000.
В цикле for переменной i от 1 до n происходит чтение значения переменной a с помощью функции readln.
Проверяется условие: если a больше 0 и является нечетным числом.
Если условие выполняется, увеличивается значение переменной k на единицу и сумма переменной sr увеличивается на значение a.
Если k равно 0, выводится сообщение о том, что нет положительных нечетных чисел.
В противном случае, значение переменной sr делится на значение k, и результат выводится на экран.