20120109 17:03分18秒 作业

楼主你走错了，出门右拐娄山中学noip吧（http://tieba.baidu.com/f?kw=%C2%A6%C9%BD%D6%D0%D1%A7noip）。

var
dj:real;
jian:longint;
zje:real;
begin
readln(dj,jian);
if jian>=50 then zje:=jian*0.9*yuan;
if (jian>=10) and (jian<50) then zje:=jian*0.95*yuan;
if jian<10 then zje:=jian*yuan;
if zje>=20000 then zje:=zje*0.98;
if zje<20000 then zje:=zje;
writeln(zje:0:2);
readln;
end.
这才是对的！！！！