1Составьте пожалуйста программу в PascalABC для определения принадлежит ли введённое...

Question

1Составьте пожалуйста программу в PascalABC для определения принадлежит ли
введённое число промежуткам [2;5] или [-1;1]

Answer 1

Var a:integer;
begin
read(a);
if ((a>=2) and (a<=5)) or ((a>=-1) and (a<=1)) then writeln('Yes') else writeln('No');<br>end.

Если число не целое, то вместо integer напиши real