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}
