Составить алгоритм определяющий принадлежит ли вводимое число заданному промежутку (-5; 23]

Var x:real;
begin
readln(x);
if (x>-5)and(x<=23) then writeln('yes') else writeln('no');
end.