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,' - входит в заштрихованную область') {Условие для проверки}<br>end.