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

[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.

[volvo]

Вторая тоже не совсем верно:

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)<9)and(x>0)) then writeln('da')
    else writeln('net');
  readln;
end.

Ну, а в третьей, по-моему, будет достаточно:

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

[kr3v3tkus]

сенка, щас с остальными треугольниками и всяими остальными штуками мучаца буду( завтра сдавать уже а мне ещё около 40 задач ( ээх (

[kr3v3tkus]

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