Напишите пожалуйста программу в паскале. ''Определить попадает ли точка в заданный диапазон.''

Program tochka_diapazon;Uses CRT;Var a, b, c : real; Begin CLRSCR; Writeln( ‘ введите первый предел диапазона a = ’ ); Readln(a); Writeln( ‘ введите второй предел диапазона b= ’ ); Readln(b);Writeln( ‘ задайте значение точки c = ’ ); Readln(c);If с > a and c<b then writeln( ‘ точка попадает в заданный диапазон ’ )else writeln(‘ точка не попадает в заданный диапазон ’ );repeat until keypressed;END.