Проверить, принадлежит ли введённое число отрезку [-72;14]. Pascal
Var A:real; Begin Write('Введите число: ');ReadLn(A); if (-72<=A)and(A<=14) then WriteLn('Принадлежит')<br>else WriteLn('Не принадлежит') End.