Plot[r Exp[-r^2/2],{r,0,5}]

N[Sqrt[Pi/2]]

N[Sqrt[Log[4]]]

Plot3D[x+y,{x,0,1},{y,0,1}]