Miscellany

program CiklasFor;
var n        : integer;
    a, suma  : integer;
    i : integer;

    begin
    readln(n);
    suma := 0;
    for i := 2 to n do
        begin
        a := (i*i*i);
        suma := suma + a;
      end;
    writeln (suma);
    readln;
    end.