Program Zad2;

var a,b,x:Real; (може и integer, зависи какви стойности ти трябват)

begin

writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('x=');
readln(x);

if ((x>a) and (x<b))
then writeln('Х в интервала', a, "-", b); //не съм сигурен дали така можеше в паскал
else writeln('Х е извън интервала', a, "-", b);
end.