Использование операторов цикла

[Yar_]

Здравствуйте, помогите пожалуйста!Недавно начал знакомиться с Delphi и застрял на таком задании.
Дано натуральное число n. Вычислить:
S=cos(ln 2)+cos(ln 2+ln 3)+...+cos(ln2+ln 3+...+ln n).

[evg_m]

r:=0;
s:=0;
for j:=2 to n do 
begin
  r:=r+ln(j);
  s:=s+cos(r);
end;