program hotrotinhoc;
var t,l: real;
begin
l:=100*0.15/100;
t:=12*l;
write(100+t:1:1);
readln
end.
Bài 15
program baitap15;
var t,l: real;
begin
write('so tien anh ta thu đc sau 1 thang la');
readln;
l:=100*0.15/100;
t:=12*l;
write(100+t:1:1);
readln;
end.