Ivan Moor

Что не так
var x,y:real;
begin
WriteLn ('Введите координаты точки x, y');
ReadLn (x, y);
WriteLn ('Точка с координатами');
if (x<0)and(y>0)and(y-x<=1)
then
WriteLn('Да')
else
WriteLn('Нет')
End.