Дана последовательность действительных чисел a1, a2 аn. указать те ее элементы, которые принадлежат отрезка [c, d].

var
  n, t, c, d: integer;

begin
  readln(n, c, d);
  for i: integer := 1 to n do
  begin
    readln(t);
    if not (t in [c..d]) then
      write('не ');
    writeln('принадлежит')
  end;
end.