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

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.