Вводится 10 чисел определить среднее арифметическое чисел попадающих в интервал от -5 до 18. на языке программирования паскаль

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

program AverageCalculation;

var
num, sum, count: integer;
average: real;

begin
sum := 0;
count := 0;

for i := 1 to 10 do
begin
write('Enter a number: ');
readln(num);

end;

if count > 0 then
begin
average := sum / count;
writeln('Average of numbers in the interval [-5, 18]: ', average:0:2);
end
else
writeln('No numbers in the interval [-5, 18] were entered.');
end.