Вроде бы но я не силен в банках.
program n_1;
var
a,X,e,f:real; N,b:integer;
begin
Writeln('ВВедите количество лет');
read(N);
Writeln('ВВедите сумму которую положите');
read(b);
X:=1+0.1;
a:=b*exp(ln(X) * N);
e:=b/100;
f:=a/e;
writeln(f,' ','процентов');
end.