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.