Задачки на графики, плз проверьте правильность Опции

[kr3v3tkus]

ужасные задачи ((( проверьте плз правильно или нет(особливо 3)

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

Код

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

Код

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

Код

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

[kr3v3tkus]

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