Вопрос Составить программу нахождения суммы следующих чисел: 1,12,35,70,117, ..532. DELPHI

Вот тебе подсказка 1*1 3*4 5*7 7*10 9*13

Разность между соседними числами: 11, 23, 35, 47, .. Разность между соседними разностями: 12, 12, 12, .. var val, sum, step: integer; begin val := 1; sum := 0; step := 11; while val <= 532 do begin inc(sum, val); inc(val, step); inc(step, 12) end; writeln(sum) end.