Question

Ввести целое число и определить сумму квадратов чисел от 1 до этого числа
Пример:
Введите целое число 3
Сумма квадратов чисел равна 14

Answer 1

// PascalABC.NET 3.6

begin

 var n := ReadInteger('Введите натуральное число:');

 Print('Сумма квадратов чисел равна', 1.To(n).Sum(k -> k * k))

end.