составление программы на Delphi

[Nata1317]

Помогите пожалуйста составить программу для того, что бы найти сумму n членов ряда: S=2/3+4/9+6/27+8/81+...

[Аватар]

  r:=2/3; s:=r; for k:=2 to n do begin r:=r*k/3/(k-1); s:=s+r; end;