Составить программу, определяющую для точки с координатами (X,Y), принадлежит ли она заштрихованной области.

Delphi/Pascal. Что угодно. Мне именно основную часть кода. Использовать условный оператор

x*x+y*y=6*6 - уравнение окружности, x=2 - уравнение прямой.

var x,y:real;beginwrite('x = ');readln(x);write('y = ');readln(y);if (x*x+y*y<=6*6)and(x>=2) then writeln('Да') else writeln('Нет');end.Пример:x = 3y = 1Да