// PascalABC.NET 3.6
begin
var n := ReadInteger('Введите натуральное число:');
Print('Сумма квадратов чисел равна', 1.To(n).Sum(k -> k * k))
end.
// PascalABC.NET 3.6
begin
var n := ReadInteger('Введите натуральное число:');
Print('Сумма квадратов чисел равна', 1.To(n).Sum(k -> k * k))
end.