графики, круг с вырезаным треугольником и треугольник Опции

[kr3v3tkus]

Все графики решил, а ети 2 не могу ( помогите пожалста

Дана точка на плоскости с координатами (x,y). Составить программу , которая выдает одно из сообщений «Да», «Нет», «на границе» в зависимости от того, лежит ли точка внутри зашрихованной области, вне ее или на границе. Области задаются графически следующим образом.

Код

program lol;
var x,y:integer;
  begin  writeln('vvesti x i y'); readln(x,y);  
if (sqrt(x*x+y*y)=10)and((abs(x)=10)and(y<=10)) then writeln('na granice')  
else  
if abs(x)<y then writeln('net')
else writeln('da');  readln;    end.

ето решение к 1 , но загвоздка в том, что если ввести 2 2 он выведет "да" а не "на границе" , это изза у<=10 , но я не знаю как исправить ето (

[Shura]

Код

procedure check19(x,y: Real);
begin
  if (y = abs(x))and(y <= 5*sqrt(2))or(sqrt(x*x+y*y) = 10)and(y <= abs(x))
  then Write('Na granice.')
  else if (sqrt(x*x+y*y) < 10)and(y < abs(x))
       then Write('Da.')
       else Write('Net')
end;

procedure  check20(x,y: Real);
begin
  if (x >= -23)and(x <= 0)and((y = 23)or(y = -x))or(y >= 0)and(y <= 23)and(x = 0)
  then Write('Na granice.')
  else if (y > -x)and(x < 0)and(y < 23)
       then Write('Da.')
       else Write('Net.')
end;

[kr3v3tkus]

Shura пасибоньки
фуф наконецто все 159 задач для зачёта есть неделю мучался )))