<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
begin
var a:=ReadReal('Введите число');
Write(a,' ');
if (a<2) or (a>12) then Write('не ');
Writeln('принадлежит интервалу [2;12]')
end.
<u>Примеры</u>
Введите число 3.18
3.18 принадлежит интервалу [2;12]
Введите число 16
16 не принадлежит интервалу [2;12]
Вот, пользуйся. Только не спались
530 * 90 * 70 = 3339000
3339000 : 8 = 417375
3339000 : 417375 = 8
Ответ : 8
Надеюсь дальше сам поймёшь http://mabi.vspu.ru/files/2016/05/0003-003-Tablitsy-istinnosti-logicheskikh-operatsij.jpg