Create a pascal program which outputs sum of series 1 plus 2multiply3 plus 4multiply5multiply6 plus 7multiply8multiply9multiply10 plus?

Answer 1

f(x) = 1 + 2*3 + 4*5 + ... (2x * [2x + 1])

f(x) = 1 + 2*3 + 4*5 + ... (4x2 + 2x])

f(x) = 1 + ∑(4x2 + 2x)

So you can do it with a simple for loop:

tally := 1;

FOR count := 1 TO maximum DO

BEGIN

WRITELN(tally, ', ');

tally := tally + count * (4 * count + 2 );

END;