Проверить, принадлежит ли введённое число отрезку [-72; 14]. pascal

Var
   A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.