<< Statistics`ContinuousDistributions`

ndist = NormalDistribution[0, 1]

pdf = PDF[ndist, x]

Plot[pdf, {x, -3, 3}]

Plot[ndist, {x, -3, 3}]