Напишите программу, вычисляющую сумму квадратов от 1 до n. на abc паскале

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  Writeln('Сумма квадратов от 1 до ',n,' равна ',
    1.To(n).Select(x->x*x).Sum)
end.

Тестовое решение
n= 152
Сумма квадратов от 1 до 152 равна 1182180