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

Var

mean, count, n: real;

i: byte;

begin

mean : = 0;

count : = 0;

for i : = 1 to 10 do

begin

readln (n);

if ((n = - 5)) then

begin

mean : = mean + n;

count : = count + 1;

end;

end;

mean : = mean / count;

writeln ('Среднее арифметическое = ', mean);

end.