Написать программу на Паскале для реализации данного примера

Var a,b,x:integer;

Begin

Readln(a,b,x);

If (x>=a) and (x<=b) then writeln('Yes')

Else writeln('no');

End.