Выручайте!! все что выделено красным, паскаль или бейсик СРОЧНО!!

program 2; var x1,x2,y1,y2:integer; begin write ('Задайте координату для x1: '); readln (x1); write ('Задайте координату для y1: '); readln (y1); if (x1>5) and (x1<1) and (y1<1) and (y1>5) and (sqrt(sqr(x1+2)+sqr(y1+2)<=1)) then writeln ('Точка с координатами: ',x1,', ',y1,' - не входит в заштрихованную область') else writeln ('Точка с координатами: ',x1,', ',y1,' - входит в заштрихованную область') {Условие для проверки} end.