10 DEF FN P(X)=X^2+X+1:S=0
20 FOR K=1 TO 7
30 S=S+FN P(K)
40 NEXT K
50 PRINT S:END