Написать программу в паскале: 1. Проверить принадлежность числа х к интервалам [a; b] или [c; d].

Var a, b, x:integer;

begin

writeln ('введите число x:') ;

readln (x) ;

writeln ('введите интервал от a до b:') ;

readln (a, b) ;

if (x>=a) and (x<=b) then writeln ('x принадлежит данному интервалу') else

writeln ('x не принадлежит данному интервалу') ;

readln;

end.