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.