Дано x- действительное число . напишите условие проверки принадлежности данного числа промежутку[-5; 5) запишите результат, подобрав входное напишите ! 50 !

Program abc; uses crt; var   a,b: real;   c: char; begin   clrscr;   repeat       writeln('la-la-la');       write('если хотите вычислить сумму, то нажмите с,');       writeln(' произведение- d, операцию деления -e ');       writeln('для завершения работы нажмите q');       c: =readkey;       case c of       'c','c': begin           write('сложение: введите слагаемые: '); read(a,b);           writeln('сумма равна ',a+b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'd','d': begin           write('умножение: введите сомножители: '); read(a,b);           writeln('произведение равно ',a*b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'e','e': begin           write('деление: введите делимое и делитель: '); read(a,b);           writeln('частное равно ',a/b);           write('для продолжения нажмите любую клавишу');           readkey;           clrscr           end;       'q','q': ;       else begin           writeln(#13#10,'error, please enter c, e or d',#13#10);           end       end;   until c in ['q','q'];   writeln('ждем вас снова! ');   readkey end.