Ребята, решите мне 2 задание, даю 98 баллов

Question

Ребята, решите мне 2 задание, даю 98 баллов

---

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

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