Прогрессия

[Grobovichok]

Прошу помоч с такой вот задачкой:

Дано дійсні числа a, h, натуральне число n.
Обчислити
f(a)+2f(a+h)+2f{a+2h)+ ......+2f(a+(n—1)h)+f(a+nh),
де
f(x)=(x2+ l)cos2x.

Впринципе, есть вот такие наброски, но на них я и повис...

{$APPTYPE CONSOLE}
uses
SysUtils;
const a=2; h=1; n=4;
var i:integer;
S:real;
begin
S:=(sqr(a)+1)*sqr(cos(a));
for i:=1 to n-1 do
S:=S+2*(sqr(a+i*h)+1)*sqr(cos(a+i*h ));
S:=S+(

Очень прошу помоч...