Помогите, пожалуйста!

Question

Помогите, пожалуйста!

---

Answer 1

Var F: integer;
var x,y:real;
begin
readln(x,y);
if (x*x+y*y>1) then
begin
if ((x<=2) and (y<=2) and (x>=-3) and (y>=-1)) then
F:=1
else
F:=0;
end
else
begin
if (x*x+y*y<=1) then<br>F:=1
else
F:=0;
end;
writeln(F);
end.