DmiDru_2

Var
    S: Real;
    N: LongInt;
Begin
    For N:= 1 To 100 Do Begin
        S:= S + 1 / ((N + N * N + N * N * N) * Sqrt(N));
    End;
    WriteLn('Сумма: ', S:6:6);
    ReadLn;
End.