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

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  1.To(100).Select(t->t*t).Sum.Println
end.

Результат
338350