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

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