program lai_xuat;
uses crt;
var a, b: real;
begin
clrscr;
write('nhap so tien gui tiet kiem :');readln(a);
write('nhap so thang gui :'); readln(b);
if (b = 1) or (b =2) then
writeln('so tien dat duoc sau khi gui la :',a + a*31/1000:8:2);
if (b = 3) or (b = 4) or (b = 5) then
writeln('so tien dat duoc sau khi gui la :', a + a*34/1000:8:2);
if (b = 4) or (b = 6) or (b=7) or (b=8) or (b=9) or (b=10) or (b=11) then
writeln('so tien dat duoc sau khi gui la :', a + a*1/25:8:2);
if (b = 12) or (b = 13) then
writeln('so tien dat duoc sau khi gui la :', a + a*11/200:8:2);
readln
end.