program DotAndRegion;

var
  x,y: real;
  InCircle, InTriangle: boolean;

begin
  InCircle := False;
  InTriangle := False;

  Write('введите через пробел координаты точки: ');
  Read(x, y);

  if (x >= 0) and (x <= 6) then
    if (y >= 0) and (y <= -x + 6) then
      InTriangle := True;

  if (x < 0) and (y > 0) then
    if Sqr(x + 4) + Sqr(y - 4) <= 9 then
      InCircle := True;

  if InCircle then Write('попадает в круг')
  else if InTriangle then Write('попадает в треугольник')
  else Write('не попадает никуда');
  Readln;Readln
end.