Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах - Pascal ABC

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

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах , и подсчитать количество чисел , наибольших заданного F.

Решение задачи: «Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах»

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

var F,D,k,j,i : integer;
begin
j:=0;
k:=0;
writeln('введите D');
readln(D);
writeln('введите F');
readln(F);
for i:= D to (F*5) do
begin
if (i mod 2 <> 0) then
k:=k+1;
if i > F then 
j:=j+1;
end;
Writeln('количество нечетных чисел = ',k,' (до ',5*F, ')');
Writeln('количество чисел больших ',F,' = ',j,' (до ',5*F,')');
end.

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

Создаются переменные F, D, k, j, i, которые будут использоваться для выполнения вычислений.
Устанавливаются начальные значения для переменных k и j.
Пользователю предлагается ввести значение D и F.
В цикле от D до (F*5) происходит следующее:
- Если число i нечетное (i mod 2 <> 0), то переменная k увеличивается на 1.
- Если i больше F, то переменная j увеличивается на 1.
Выводится количество нечетных чисел, которое равно k, и количество чисел, больших F, которое равно j.
Программа завершается.