Ребята, Пожалуйста посчитайте мне 2 задание, даю 98 поинтов

begin
  var (u,d):=ReadReal2('Введите u и б:');
  var n:=ReadInteger('Введите n:');
  var (a,b,f,s):=(u,d,2.0,0.0);
  for var k:=1 to n do begin
    s+=a*b/f;
    (a,b):=(2*b+a,2*a+b);
    f*=k+2
    end;
  Writeln(s);
end.


Введите u и б: 3.72 6
Введите n: 10
1893.54632412049