Составить программу в Паскалях.
Принадлежит ли число n интервалу (a;b)

var n,a,b:real;beginread(n,a,b);if (n<b)and(n>a) then writeln('YES')                 else writeln('NO');end.