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

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