Проверить, попадает ли точка с заданными координатами в заштрихованную область - Pascal

Формулировка задачи:

Разработать схему алгоритма и программу, которая позволяет ввести координаты точки (x, y) и определяет, ци попадает точка в заштрихованную зону область на рисунке, который соответствует заданному варианту. Попадание на границу области считать попадания в область.

Решение задачи: «Проверить, попадает ли точка с заданными координатами в заштрихованную область»

Листинг программы

var x,y:real;
begin
writeln('Введите x,y');
readln(x,y);
if(x*y<=0)or((x>0)and(y>=0)) then write('попадает')
else write('не попадает')
end.

Объяснение кода листинга программы

Объявляются две переменные типа real с именами x и y.
Пользователю предлагается ввести значения для x и y.
С помощью функции readln вводятся значения для x и y.
Выполняется проверка: если x*y<=0 или (x>0 and y>=0), то выводится сообщение попадает, иначе выводится сообщение не попадает.