program ideone;
// Перед вами - WEB-среда разработки PascalABC.NET (версия 1.0, апрель 2011 г.). 
// Она основана на современном языке PascalABC.NET, совместимом с Turbo Pascal 
// и Delphi Pascal. Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// http://p...content-available-to-author-only...c.net/WDE/?file=имя_опубликованного_файла.pas
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
var
  x, y: Real;

begin
  Write('Введите x и y: ');
  ReadLn(x, y);

  if (x - 1) * (x - 1) + (y - 1) * (y - 1) <= 1 then
    WriteLn('Точка принадлежит D')
  else
    WriteLn('Точка не принадлежит D');

  ReadLn;
end.