Составить программу в Паскале

Вклад в банке пролежал N лет. Процентная ставка составляет 10% в год с ежегодной капитализацией. Насколько % увеличится вклад?

Вроде бы но я не силен в банках.

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.