program laiSuat;

uses crt;

var a: real;

    t, i, k: byte;

begin

  clrscr;

  write('nhap so tien: '); readln(a);

  write('nhap so thang: '); readln(t);

  if t mod 3 = 0 then

     begin

        k:=t div 3; i:=0;

        while i<k do

           begin

              a:=a + a*0.02;

              inc(i);

           end;

     end

  else

     begin

        k:=t div 3;

        for i:=1 to k do

               a:=a + a*0.02;

        for i:=1 to t-k*3 do

               a:=a + a*0.001;

     end;

  write('so tien nhan duoc la: ', a:10:2);

  readln;

end.

{GM Kiet}