program tinhtien;
uses crt;
const lai=0.0095;
var x,t,tien:longint;
begin
clrscr;
write('Nhap so tien gui: '); readln(x);
write('Nhap so thang gui: '); readln(t);
tien:=0;
for i:=1 to t do
tien:=x*lai;
tien:=tien+x;
write('So tien nhan duoc la: ',tien);
readln;
end.