Program Rick_and_Morty; //название поменяй

var x,y:integer;

Begin
write('введите x: ');
readln (x);
write('введите y: ');
readln (y);
if ((x=0) and (x*x+y*y<=36)) //тут условие
or ((x<=0) and (y<=0) and (x*x+y*y<=36)) //and как и, or как или
or ((x>=0) and (y<=0) and (x*x+y*y<=36)) // условие закончилось
then //если хоть одно условие верно то
writeln('(',x,',',y,') - входят в облость')
else // если не верно то
writeln('(',x,',',y,') - не входят в облость');

writeln('конец');
end.