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

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