// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 begin var a:=ReadReal('Введите число'); Write(a,' '); if (a<2) or (a>12) then Write('не '); Writeln('принадлежит интервалу [2;12]') end.
Примеры Введите число 3.18 3.18 принадлежит интервалу [2;12]
Введите число 16 16 не принадлежит интервалу [2;12]