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

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

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  if ReadReal.Between(-30,60) then Writeln('Входит')  else Writeln('Не входит')end.