{ фото огонь !!! ))) решение согласно схеме } var x, y, d: real; begin read(x,y); d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат} if d <= 1 then writeln('Входит в Д1') else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then writeln('Входит в Д2') else writeln('Не входит'); end.