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