Решить информатику составить "программу паскаль" 1.определить принадлежит ли точка а(х) отрезку [-5; 7]

Var a,b,c,e: integer;
begin
 writeln('введите интервал');
 read(b,c);
 if (b>c) then begin e:=b; b:=c; c:=e; end;
 writeln('введите число');
 readln(a);
 if ((b<=a) and (c>=a)) then writeln('входит') else writeln('не входит');
end.