Помогите, пожалуйста, с домашним заданием по информатике БУДУ ОЧЕНЬ ПРИЗНАТЕЛЬНА

var  x, y: real;  N: integer; begin  read(x,y);   if y >= 0 then    if x >= 0 then      if (x <= 1) and (y <= 1) then        N := 3      else        N := 5    else      if (x >= -1) and (y <= 1) then        N := 1      else        N := 5  else    if x >= 0 then      if y - x + 1 >= 0 then        N := 4      else        N := 5    else      if sqr(x) + sqr(y) - 1 <= 0 then        N := 2      else        N := 5;   write(N) end.