program BankSavings;
var a, interest, total: real;
k, t: integer;
begin
Write('Nhap so tien ban dau (trieu dong): ');
Readln(a);
Write('Nhap lai suat sau moi thang (phan tram): ');
Readln(k);
Write('Nhap so thang gui tiet kiem: ');
Readln(t);
interest := a * k / 100;
total := a;
for i := 1 to t do
begin
total := total + interest;
interest := total * k / 100; end;
Writeln('So tien nguoi do duoc sau ', t, ' thang la ', total:0:2, ' trieu dong.');
end.