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

program 2;var x1,x2,y1,y2:integer;beginwrite ('Задайте координату для 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.