Работа с Паскаль

Помогите

Задание: Даны координаты точки на плоскости (x, y). Выясните, лежит ли эта точка внутри квадрата, две стороны которого лежат на положительных ветвях осей координат. Длина стороны квадрата равна 5.

{т. е. квадрат лежит на оси x начиная от 0 до 5, т. к. сторона квадрата = 5, аналогично и с осью y, отсюда условия x>=0 x=0 y<=5}

var

x, y:real;

begin

readln (x, y);

if (x>0) and (x0) and (y<5) then

writeln ('попадает')

else

writeln ('не попадает');

end.