1составьте программу в pascalabc для определения принадлежит ли введённое число промежуткам [2; 5] или [-1; 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');
end.

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