Legendresches Polynom n-ten Grades

restart:
with(orthopoly):
n:=             ;`(* Grad des Legendreschen Polynoms *)`:
P(n,x);