Напишите программы на паскале для решения следующих выясните принадлежит ли числа a и b промежутку(-1; 1)

uses crt;
var a,b:real;

begin
readln(a,b);
if ((a<1) and ( a > - 1)) then writeln(' tocha a vhodit v diapazon ' ) else writeln('tochka a ne vhodit');
if ((b<1) and ( b > - 1)) then writeln(' tocha b vhodit v diapazon ' ) else writeln('tochka b ne vhodit');

readln;
end.