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

Var
    i: integer;
    s: longint;

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