Program ex3;
Var s,n:integer;
funtion pp(n:integer):integer;
Begin
If n=1 then pp:=1
Else pp:=n*n+pp(n-1);
End;
Begin
Readln(n);
S:=pp(n);
Writeln(‘s=’,s);
End.
输入：10

输出：s=385