---

program Variant11;

var
  x, y: real;

begin
  { 1. Ввод координат точки x и y }
  write('Введите координату x: ');
  readln(x);
  write('Введите координату y: ');
  readln(y);

  { 2. Вывод введенных значений на экран }
  writeln('Координаты точки: x = ', x:0:2, ', y = ', y:0:2);

  { 3. Проверка попадания точки в область (Вариант 11) }
  if ((x >= 0) and (sqr(x) + sqr(y) <= 1)) or 
     ((x >= -1) and (x <= 0) and (y >= -1) and (y <= 1)) then
    writeln('Точка попадает в область')
  else
    writeln('Точка не попадает в область');
    
  readln; { Задержка экрана }
end.