program dots;
var x,y:real;
otvet:byte;
begin
11: writeln (‘Введите координаты точки:‘);
    write (‘x = ’);
    readln (x);
    write (‘y = ’);
    readln (y);
    write (‘Точка с заданными координатами указанной
    области’);
    if ((x<=0) and (x>=-4) and (y<=0) and (y>=-2))
    or ((sqr(x-2)+sqr(y-2)>=4)and (y<=4) and (y>=0) and
    (x>=0) and
    (x<=2)) or (4>=(sqr(x+4)+sqr(y-2)) and
    (1<=sqr(x+5)+sqr(y-2))
    and (1<=sqr(x+4)+sqr(y-1)))
    then
        writeln (‘Принадлежит’)
    else
        writeln (‘Не принадлежит’);
    write (‘Продолжить? 1 - ДА, 0 - НЕТ =>’);
    readln(otvet);
    writeln;
    if otvet =1 then
       goto 11;
end.