Проверить, попадает ли число a в промежуток [b,c] — Pascal(Паскаль)

program evklid_vs_bregnev;

uses crt;

var
  a, b, c: integer;

begin
  clrscr;
  writeln('ВВедите вначале число, затем промежуток');
  readln(a, b, c);
  If (a < b) or (a > c) then
  begin
    writeln('Число не входит в промежуток [', b, ';', c, ']');
  end
  else
  begin
    writeln('Число входит в промежуток [', b, ';', c, ']');
  end;
  readln;

end.