Выясните принадлежат ли числа a и b промежутку (-1; 1) паскаль.

Var a,b:real;
begin
write('вв числа a и b');
read(a,b);
if (a> -1) and (a<1) then writeln('a принадлежит промежутку') else writeln('a не принадлежит');
if (b>-1) and (b<1) then writeln(' b принадлежит') else writeln('b не принадлежит');
end.