program Tinh_Lai_Suat_Tiet_Kiem;

a,k: Real;

   t: interger;

  soTienCuoi, laiDaNhan: Real;

begin
 Writeln('Nhập số tiền ban đầu a:');
 Writeln('Nhập tỷ lệ lãi suất :');
 Readln(k);
laiSuat := laiSuat / 100;
Writeln('Nhập số tháng gửi:');
 Readln(t)
soTienCuoi := soTienBanDau * Power(1 + laiSuat, soThangGui);
laiDaNhan := soTienCuoi - soTienBanDau;
 Writeln('Lãi đã nhận sau ', soThangGui, ' tháng là: ', laiDaNhan:0:2);

end.