Manipulate[
Plot[(x^2)+Sin[4x]+ 4Cos[3x], {x,sl[[1]]-2,sl[[1]]+2},
PlotRange->{sl[[2]]-4,sl[[2]]+4},
PlotLabel->TableForm[{{"x = ",sl[[1]]},{"y = ",sl[[2]]}}]
],
{sl,{-5,-5},{5,25}}
]