Найдите сумму квадратов всех чисел от 1 до 20 с шагом 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  Writeln(1.To(20).Select(x->x*x).Sum)end.Результат2870