Program yoyo;
uses crt;
var x,y:real;
begin
writeln('введите координату точки через пробел: ');
readln(x,y);
if((x*x+y*y)<1) or (y<1)and(x<1)and(x>0)and(y>0)
then writeln('точка находится в области ')
else writeln ('точка нe находится в области ');
end.