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

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

Результат
2870