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

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