Клиент внёс в банк Х рублей. Каждый месяц эта сумма увеличивается на Р процентов.

Сколько будет у клиента денег через два месяца, три месяца, через полгода?

Var

x, d, e:integer; //start balance and period

p:real; //percent interest

Begin

procedure multiply (n:real, o:real, f:integer) ;

begin

n:=n + (n*o*0.01) ;

e:=e+1;

writeln ("Amount of money after ", e," month is ", n) ;

f:=f-1;

if (f>0) then

multiply (n, o, f) ;

end;

writeln ("Enter start balance on account") ;

readln (x) ;

writeln ("Enter the percent of bank interest") ;

readln (p) ;

writeln ("Enter the period") ;

readln (d) ;

multiply (x, p, d) ;

End.