pascal对给定的整数n（1小于等于n小于等于100）,求下式的值

var n,i,s:longint;
begin
s:=0;
read(n);
for i:=1 to n do
s:=s+i*(n-i+1);
write(s);
end.