program moc_rad;
  var n,i,vysledok:integer;
begin
  write('Zadaj n: ');
  readln(n);
  vysledok:=0;
  for i:=1 to n do vysledok:=vysledok + (i*i);
  writeln(vysledok);
end.