Một người gửi tiết kiệm có kì hạn với số tiền Còn lại A đồng, với lãi suất 0.3% mỗi tháng. Hỏi sau N tháng, người đó sẽ nhận được bao nhiêu tiền? Lãi suất sẽ được cộng vào vốn sau mỗi tháng. Với A, N được nhập từ bàn phím

program tietkiem;

uses crt;

var

 a,lai:real;

 n,i:integer;

begin

 clrscr;

 write('So tien ban dau ban gui la ');readln(a);

 write('Ban muon rut tien sau bao nhieu thang ? ');readln(n);

 for i:=1 to n do

  begin

   lai:=a*(0.3/100);

   a:=a+lai;

  end;

 writeln('Sau ',n,' thang ban se nhan duoc so tien la ',a:10:2,' dong.');

 readln

end.

Program TT;
Uses crt;
Var n,i: longint; a,b: extended;
Begin
        Clrscr;
        Write('Nhap so tien: '); Readln(A);
        Write('Nhap so thang gui tien: '); Readln(N);

        b:=a;
        For i:=1 to n do
                A:=A+A*0.003;

        Write('Tong so tien nhan duoc tu ',b:0:2,' sau ',n,' thang la: ',a:0:2);
        Readln
End.