Составьте алгоритм определения суммы вклада под 11% ежемесячных начислений, если первоначальный взнос составил 10000 и положен в банк на 6 месяцев.

program depos;const A = 10000; P = 11; N = 6;function GetDp(a, p, n: integer): real;begin GetDp := a * exp(ln(1 + p / 100) * n);end;begin writeln(GetDp(A, P, N):1:2);end.