По теме «цикл с параметром».в паскаль 3+4/2+5/3++11/9 количество знаков после десятичной точки 5

Program Zadacha;
Var a, b, i: Integer;
sum: Real;
Begin
a := 3;
b := 1;
sum := 0;
For i := 1 To 8 Do
Begin
sum := sum + a / b;
a := a + 1;
b := b + 1;
End;
WriteLn('Результат: ', sum:2:5);
ReadLn;
End.