Найти сумму квадратов всех натуральных чисел от 1 до 100

Var     i: integer;     s: longint; begin     s := 0;     for i := 1 to 100 do         s := s + i * i;     writeln(s); end.