Написать программу в паскале: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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.