Какую сумму обратился вклад в x р. положенный в сберкассу на 4 глда если ежегодно он увеличивается на 6%?

Program sber;
const
n = 4;
k = 0.06;
var
fv, x: real;
begin
write('x = ');
readln(x);
fv := x * exp(ln(1 + k) * n);
writeln('Сумма: ', fv);
end.