program edfr; uses crt; var q,w,e:real ; begin writeln('введите x'); readln(q); writeln('введите y'); readln(w); if (q<=2) and (q>=-2)and (w<=2)and (w>=-2)and (4<=q*q+w*w) then writeln('принадлежит ') else writeln('не принадлежит '); readln; end.