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

Примеры
входные данные
0.5 0.5
выходные данные
YES
входные данные
-0.5 -0.5
выходные данные
NO

var x,y : real;
begin
readln(x,y);
if (x*x+y*y<=1)and((x>=0)and(y<=1)and(y>=x-1)or(y then writeln('YES')
else writeln('NO');
end.

Слишком много and))
Разбей на две части: сектор и типа треугольник!))
Так будет вернее

var x,y : real;beginreadln(x,y);if (x>=0)and(y<=1)and(y>=x-1)or(y<x-1)and(x*x+y*y<=1) then writeln('YES') else writeln('NO');end.Пример:0.5 0.5YES