ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ МЕНЬШИХ ЗАДАННОГО ЧИСЛА А.А=40 паскаль...

Question

ВЫЧИСЛИТЬ СУММУ КВАДРАТОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ МЕНЬШИХ ЗАДАННОГО ЧИСЛА А.А=40
паскаль !помогите пожалуйста

Answer 1

// 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