Вычислить сумму квадратов всех целых чисел меньших заданного числа а.а=40 паскаль !

// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Введите число n: ');
  Writeln('Сумма квадратов чисел от 1 до ',n-1,' равна ',
    Range(1,n-1).Select(x->x*x).Sum)
end.

Тестовое решение:
Введите число n: 40
Сумма квадратов чисел от 1 до 39 равна 20540