嘿嘿记得加分哟~~~

program oh~~yeah`~;
var s,d:string;
    n,i:1..9;
begin
    d:='YQBSWQBS';
    write('input a number:');
    read(s);
    n:=length(s);
    for i:=n-1 downto 1 do
      insert(d[i],s,i+1);
    writeln(s);
    readln;
    readln;
end.

拜托,0和小数点都无法显示,只不过给我一点思路,谢谢.[em2]加10分