Напишите два варианта программы которая вводит координаты точки на плоскости и определяет, попала ли эта точка в заштрихованную область. один вариант программы должен использовать сложные условия, второй-обходиться без ниха,в,з СРОЧНО плиз

1)var x,y:real;
begin
read(x,y);
if (x*x+y*ygt;4) and (y0) then writeln (YES)
else writeln(NO);
end.
3)var y,x:real;
begin
read(x,y);
if ((ygt;x) and (ylt;2-x*x)) or ((y0) and (ylt;2-x*x)) then write(yes)
else writeln(no);
end.
4)var y,x:real;
begin
read(x,y);
if ((ylt;-x) and (ygt;x*x-2)) or((yx*x-2) ) then write(yes)
else writeln(no);
end.
5)var y,x:real;
begin
read(x,y);
if ((ygt;x) and (x*x+y*ylt;1)) or ((yelse writeln(no);
end.
6)var y,x:real;
begin
read(x,y);
if ((x*x+y*ylt;1) and (ygt;x) and (ygt;-x)) or ((y-x)) or ((x*x+y*ylt;1) and (yelse writeln(no);
end.
7)var y,x:real;
begin
read(x,y);
if ((ygt;1-x) and (xlt;1) and (ygt;2*X*X) and (ygt;0)) or((ygt;1-x) and (xlt;1) and (ylt;2*X*X) and (ygt;0) and (xgt;0)) then writeln(yes)
else writeln(no);
end.
8)var y,x:real;
begin
read(x,y);
if ((ylt;1) and (xgt;0) and (ygt;x-1)) or ((ylt;0) and (x*x+y*ylt;1) and (xgt;0) and (yelse writeln(no);
end.
9)var y,x:real;
begin
read(x,y);
if ((x*x+y*ylt;1) and (ylt;1) and (xlt;1)) or ((x*x+y*ygt;1) and (xlt;1) and (ylt;1) and (xgt;0) and (ygt;0)) then writeln(yes)
else writeln(no);
end.