Дано число А. Проверить принадлежит ли данное число интервалу(-5;5).

var a:real;beginreadln(a);if (a<5) and (a>-5) then writeln('принадлежит') else writeln('не принадлежит');end.