Две задачи в паскале

[RaTe]

Всем Доброго вечера, помогите пожалуйста решить задачки в паскале...

1)Задача
Найти сумму ряда с точностью е(эпсилон)=10^-h , общий член которого равен

An= N!/(N^N) , h=3

*вот есть пример программы с другим примером:
Ak = 2(k!)^2/(3(2k)!)

program Sum_rjad;

const Eps=0.001;
A1=2/6;
var S,Ak:real;K:integer;
begin
S:=A1;
Ak:=A1;
K:=1;
Writeln('K Ak');
Writeln(K,' ',Ak);
while (Ak>=Eps) and (K<10) do
begin
K:=K+1;
Ak:=Ak*(K/(2*(2*(K-1)+1)));
S:=S+Ak;
Writeln(K,' ',Ak);
end;
Writeln('Сумма ',K,' членов ряда равна ',S);
writeln(K,' член равен ',Ak);
end.

в этой задаче всё ясно,но проблема только заключается в том что не могу так же как в примере формулу реккурентную получить чтобы вписать программу....(буду признателен если подскажите как получить её)

2)Задача:
Вычислить выражение, если дано натуральное число N

cosa + sin2a+cos3a+sin4a+...+cosNa