// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadReal('n=');
if n.Between(5,25) then Writeln('Число принадлежит интервалу [5;25]')
else Writeln('Число не принадлежит интервалу [5;25]')
end.
Примеры
n= 5.001
Число принадлежит интервалу [5;25]
n= 4
Число не принадлежит интервалу [5;25]