Pascal информатика. Определить лежит ли число в диапазоне (-30,60) СРОЧНО ПОМОГИТЕ, ДАЮ...

Question

Pascal информатика. Определить лежит ли число в диапазоне (-30,60)
СРОЧНО ПОМОГИТЕ, ДАЮ 15 БАЛЛОВ

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  if ReadReal.Between(-30,60) then Writeln('Входит')
  else Writeln('Не входит')
end.

Answer 2

Var a:integer;
Begin
Read(a);
If (a>-30) and (a<60) then write('yes')<br> else write('no');
End.