uses crt;
var n, m : real; i : integer;
begin
clrscr;
write('Nhap so tien Bo co : '); readln(n);
write('Nhap so tien can rut : '); readln(m);
i := 0; while n < m do begin
n := round(n + n * 0.1);
mình copy cách này của 1 bạn, bạn có cách khác thì chỉ mình với
cre: Huy Xyz