program bai1;

uses crt;

var tien,x:longint;

       t:real;

begin

clrscr;

write('Nhap so tien: ');   readln(tien);

write('Nhap thang: ');   readln(x);

t:=tien;

for i:=1 to x do

 t:=tien*(102/100);

write('So tien nhan duoc la: ',t:2:2);

readln

end.

program bai2;

uses crt;

var tien,t,n,tien2:longint;

begin

clrscr;

write('Nhap so tien ban dau: ');   readln(tien1);

write('Nhap so tien muon nhan: ');   readln(tien2);

n:=0;  t:=tien1;

while t<tien2 do

 begin

  n:=n+1;

  t:=t*(102/100);

 end;

write('Can ',n,' thang');

readln

end.

1/

uses crt;
var n,x,i:longint; t:real;
begin
clrscr;
   write('So tien, x: ');readln(n,x);
   t:=n;
   for i:=1 to x do t:=t+(n/100)*2;
   writeln(t:0:2);
readln
end.

2/

uses crt;
var n,x,i,b:longint; t:real;
begin
clrscr;
   write('So tien, so tien b: ');readln(n,b);
   t:=n;
   while t<b do begin inc(i); t:=t+(n/100)*2; end;
   writeln('Can ',i,' thang');
readln
end.