Помогите, пожалуйста, с семейным заданием по информатикеБУДУ ОЧЕНЬ Благодарна

Var
 x, y: real;
 N: integer;

begin
 read(x,y);
  if y gt;= 0 then
   if x gt;= 0 then
     if (x lt;= 1) and (y lt;= 1) then
       N := 3
     else
       N := 5
   else
     if (x gt;= -1) and (y lt;= 1) then
       N := 1
     else
       N := 5
 else
   if x gt;= 0 then
     if y - x + 1 gt;= 0 then
       N := 4
     else
       N := 5
   else
     if sqr(x) + sqr(y) - 1 lt;= 0 then
       N := 2
     else
       N := 5;
  write(N)
end.