Помогите решить, срочно надо!!

Question

Помогите решить, срочно надо!!

---

Answer 1

Var x,y:integer;
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln('Принадлежит')
else writeln('Не принадлежит');
end.

Answer 2

Var 
x,y:longint;
begin
read(x,y);
if ((x*x)+(y*y))<25 then<br>write ('Не принадлежит') else
begin
if ((x*x)+(y*y))>100 then
write('принадлежит') else write ('Не принадлежит'); 
end;
end.