Определите принадлежит ли точка

Uses Crt;
var
B,x,y,C:real;
begin
writeln('vvedite B');
read(B);
writeln('vvedite x y');
read(x,y);
C:=(B*3.14*90)/(180);
if (B*B>0) then begin
if (abs(x)+abs(y)<C/2)then
writeln('prinadlesit');
end;
if (B*B>0) then begin
if  (abs(x)+abs(y)=C/2)then
writeln('prinadlesit');
end;
if (B*B<0)   then begin
if (abs(x)+abs(y)=B) then
writeln('prinadlesit');
end;
if (B*B<0)   then begin
if (abs(x)+abs(y)<B) then
writeln('prinadlesit');
end;
if  (abs(x)+abs(y)>C/2)and (abs(x)+abs(y)>B)then begin
writeln('ne prinadlesit');
end;
end.

var
  x, y, b: real;
 
begin
  repeat
    write('B > 0;  B = ');
    readln(b)
  until b > 0;
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln('In area: ', (x * x + y * y <= b * b) and (y <= x + b) and (y >= x - b))
end.

  if (x * x + y * y <= b * b) and (y <= x + b) and (y >= x - b))
    then writeln('Точка принадлежит области.')
    else writeln('Точка не принадлежит области.');