Как решить? Мое задание под цифрой "5" рис 11. Нужно решение в паскале и блок-схема.

Var x, y: integer;
begin readln(x, y);
          if (xgt;=2) and (xlt;=6) and (y*ylt;=16-sqr(x+2)) then
          writeln(true)
          else writeln(false);
readln;
end.