var
  sum, i: integer;
  
begin
  for i := 1 to 100 do
    sum := sum + i * i;
  write(sum)
end.