Разработать программу для вычисления заданных сумм

[CyBer_ua]

Плиз помогите сделать задание

Задано натуральное n. Разработать программу для вычисления заданных сумм. При исчислении сумм использовать рекурсивные процедуры и функции.

[BDA]

А где наработки?
Сделал потому, что задание вызвало некоторый интерес.

uses
  crt;

var
  n: integer;

function recur(a, b: real; k, n: integer): real;
var
  a1, b1: real;
begin
  //writeln(k - 1, ') ', a, ' ', b);
  if k > n then
  begin
    recur := 0;
    exit;
  end;
  a1 := 3 * b + 2 * a;
  b1 := a * a + b;
  recur := exp(ln(2) * k) / (1 + a1 + b1) + recur(a1, b1, k + 1, n);
end;

function sum(n: integer): real;
begin
  sum := 2 / 3 + recur(1, 1, 2, n);
end;

begin
  writeln('Input n:');
  readln(n);
  writeln('Sum= ', sum(n));
  readln;
end.

[CyBer_ua]

Сообщение от BDA

А где наработки?
Сделал потому, что задание вызвало некоторый интерес.

сорри что без наработок, просто я в паскале я не шарю вообще=(
я это задание делал на js но подумал что нет смысла выкладывать так как обязательно нужно на паскале..
спасибо