Написать программу проверки попадания введенного числа в диапазон от -2 до 2

Var
a:integer;
begin
readln(a);
if(a<2) and (a>-2) then writeln("Yes") else writeln("No");
end.