Определить принадлежность точки к области.

[Водонька]

Задаются координаты точки (х,у). Программа должна определить, принадлежит ли эта точка к заштрихованной области (я выделила серым цветом).

[JUDAS]

program Project6;
var x,y, D : double;
begin
  write('Введите через пробел Х Y: ');read(X,Y);
  // проверка , попадает ли вообще в квадрат
  if (abs(x)>200) or (abs(y)>200) then
  begin
   write('Точка не попадает в фигуру');
   exit;
  end;
  // ищем удаление точки от центра
  D := sqrt(x*x+y*y);
  // проверка левого сектора
  if (abs(X)>=abs(Y)) and (D<=200) and (X<0) then
  begin
   write('Точка попадает в левый сектор ');
   exit;
  end;
  // проверка правого сектора
  if (D>200) and (X>0) then
  begin
   write('Точка попадает в правый сектор ');
   exit;
  end;
  write('Точка попадает в белую область');
end.

[Водонька]

Пишет: "Неизвестное имя типа double"

Спасибо огроменное! С double справилась. Все работает!!!