Составить алг для нахождения среднего арифметического нечетных двузначных чисел в паскале

Предыдущий
вопрос Следующий
вопрос

var
sum, count, average: real;
i: integer;
begin
sum := 0;
count := 0;

for i := 11 to 99 do
begin
if (i mod 2 <> 0) then // проверяем, что число нечетное
begin
sum := sum + i; // добавляем число к сумме
count := count + 1; // увеличиваем количество чисел
end;
end;

average := sum / count; // вычисляем среднее арифметическое

writeln('Среднее арифметическое нечетных двузначных чисел: ', average:0:2);
end.