節目嘉歌；
var n，a:整數；
t:longint；
out:longint；
ans:真實；
開始
readln(n)；
對於a:=1到n do
開始
readln(t)；
如果t & lt1000然後出:= 100 * t；
if(t & gt；=1000)和(n & lt2000)然後出:= 95 * t；
if(t & gt；=2000)和(n & lt3000)然後出:= 90 * t；
if(t & gt；=3000)和(n & lt5000)然後出:= 85 * t；
如果t & gt=5000然後出:= 80 * t；
ans:= out/100；
writeln(ans:0:1)；
結束；
結束。