---

var
  x, y: Integer;
  f: Boolean;
begin
  x := StrToInt(Edit1.Text);
  y := StrToInt(Edit2.Text);

  f := (Sqr(x) + Sqr(y - 5) <= 16) and
       (Sqr(x - 3) + Sqr(y - 4) >= 49) and
       (Sqr(x - 3) + Sqr(y - 3) >= 9);

  Memo1.Lines.Add('Точка (' + IntToStr(x) + '; ' +
    IntToStr(y) + ') - ' + BoolToStr(f, True));
end;