/OKHOA - Ổ khóa

<Problem>

http://ntucoder.net/Problem/Details/1196
              Uses Crt;
        Var i:longint; t,n:int64;
        Begin
            readln(n);
            for i:=1 to n-1 do
             t:=t+(i*(n-i));
            t:=t+n;
            writeln(t);
            readln;
        End.