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

var a:integer;beginread(a);if ((a>=2) and (a<=5)) or ((a>=-1) and (a<=1)) then writeln('Yes') else writeln('No');end.Если число не целое, то вместо integer напиши real