好像是第三天。

。。。。。。。。。。。。。（沉默开头）

 

婚礼上的小杉（wedding）

背景Background

小杉的幻想来到了经典日剧《求婚大作战》的场景里……

他正在婚礼上看幻灯片，一边看着可爱的新娘长泽雅美，一边想，如果能再来一次就好了（-.-干嘛幻想这么郁闷的场景……）。

小杉身为新一代的山下智久，在虔诚地在心里呼喊了几千次以后，妖精终于出现了。

妖精说，我还是可以帮你回到这张照片的过去，让你再来一次，可是你要帮我一个忙。

 

（若对情节有任何疑问，请观看原剧）

 

描述Description

原来妖精先生在夏威夷的教堂里住了太久，家里的信件堆积了太多，凌乱不堪，你的工作就是帮他整理信件。

总计N封的信件，每个信件都有自己的特征码和序号。

 

输入格式InputFormat

每组测试数据的

第一行有N个数，分别是不超过N的不重复的正整数，表示N封信件的序号。

第二行也有N个数，分别是有效数字不超过255位的浮点数（没有前导的0且均大于0），表示N封信件的特征码。

信件的序号和特征码按照给出的顺序一一对应。序号与序号间、特征码与特征码间有一个空格，两行均没有多余的空格。

(1<=N<=1000)

 

输出格式OutputFormat

对每组数据输出N行

请按照序号递增的顺序输出信件的特征码

每行一个特征码，且特征码的格式应与输入完全一致

 

样例输入SampleInput

3 1 2

1.0 21.2 1

 

样例输出SampleOutput

21.2

1

1.0

 

时间限制TimeLimitation

每个测试点1s

 

注释Hint

很简单的，不要想太多

 

来源Source

lolanv

var
  i,j,k,n,m,x,y,z:longint;
  a:array[0..1001]of longint;
  s:string;
  ch:char;
  b:array[0..1001]of  string;
begin
  i:=0;
  assign(input,'wedding.in'); reset(input);
  assign(output,'wedding.out'); rewrite(output);


  while not eoln do
    begin
      inc(i);
      read(a[i]);
    end;
  n:=i;
  i:=1;
  j:=1;
  x:=0;
  readln;
  readln(s);
  s:=s+' ';
  for i:=1 to length(s) do
    begin
      ch:=s[i];
      if ch=' ' then
          begin
            b[j]:=copy(s,x+1,i-1-x);
            x:=i;
            inc(j);
          end


    end;
  for i:=1 to n do
    begin
      for j:=i+1 to n do
        begin
          if b[i]>b[j] then
            begin
              b[0]:=b[i];
              b[i]:=b[j];
              b[j]:=b[0];
            end;


        end;
    end;
    y:=0;
  for i:=1 to n do
   begin
     writeln(b[a[i]]);
   end;
  close(input);
  close(output);
end.