Question

Помогите пожалуйста номер 7 пункт d).....

Answer 1

begin
    var n := ReadInteger('n = ');
    Println(Range(1, n).Aggregate(0, (S, x) -> S + 4 * x));
    Println(Range(1, n).Aggregate(1, (P, x) -> P * 4 * x));
end.

Answer 2

//PascalABC.NET 3.1 сборка 1179