function neresheni
    hold on
    grid on
    axis([-4,4,-4,4])
    [x0,y0]=ginput(1);
    plot(x0,y0,'r*')
    if y0^2<1
        f=dsolve('1-y^2-(y^2)*(Dy)^2=0','y(a)=b','x');
        s=-4:0.01:4;
        y=subs(f,{'a','b','x'},{x0,y0,s});
        plot(s,-1,s,1,s,y);
    else text(x0+0.1,y0,'No solution')
    end

end

