Написать программу, которая определяет, принадлежит ли заданное число интервалу от 10 до 30.

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.