Составьте алгоритм определения суммы вклада под 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.