Begin
var n := readinteger(Введите n:);
var m := readinteger(Введите m:);
write(readarrinteger(10).Where(x -> (x > n) and (x < m)).count);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.