Напишите программу, которая определяет, попала ли точка с заданными координатами в заштрихованную область.

Формат ввода
Входная строка содержит два вещественных числа – координаты точки на плоскости (сначала x -координата, затем – y -координата).

Формат вывода
Программа должна вывести слово 'YES', если точка попала в заштрихованную область, и слово 'NO', если не попала.
Примеры:
Ввод -0.5 и 0.5 вывод YES
Ввод -2 и 2 вывод NO
Ввод 0.5 и -0.5 вывод NO

Pascal abc.net 

program llllllllll;var x, y :real;begin    writeln('Введите x');    readln(x);    writeln('Введите y');    readln(y);    if        ((x*x+y*y<=1) and (y>=x)) or ((x*x+y*y<=1) and (x<=0))     then writeln('YES')    else         writeln('NO')end.