PASCAL
Написать программу для нахождения принадлежности точки с координатами x,y заштрихованной области

Var x, y: real;
begin readln(x, y);
          if (ygt;=0) and (ylt;=sinx) and (xgt;=1-y) and (xlt;=Pi) then
          writeln(принадлежит)
          else writeln(не принадлежит);
readln;
end.

Const pi=3.14;var x,y,y1,y2:real;beginreadln(x,y);y1:=-x+1;y2:= sin(x);if (y1gt;=0) and (xgt;=1) thenif (y2lt;=1) and (xlt;=pi) then writeln(Принадлежит)else writeln(Не принадлежит)else writeln(Не принадлежит);end.