How to determine if the point M(x, y) belongs to the shaded area?

Question

Pascal

I would be very grateful, thanks.

Answer 1

What is wrong
var x,y:real;
begin
WriteLn('Enter the coordinates of the point x, y');
Readln(x, y);
WriteLn('Point with coordinates');
if (x<0)and(y>0)and(yx<=1)
then
WriteLn('Yes')
else
WriteLn('No')
End.