Var
 f:Text;
 Fam:Array[1..5] of String;
 S:String;
 i,j:Byte;

Begin
 Assign(f,'D:\In.txt');
 Reset(f);
 for i:=1 to 5 do
  begin
   readln(f,Fam[i]);
   writeln(Fam[i]);
  end;
 Close(f);
 writeln;
 for j:=1 to 4 do
  for i:=1 to 5-j do
   if Fam[i]>Fam[i+1] then
    begin
     S:=Fam[i];
     Fam[i]:=Fam[i+1];
     Fam[i+1]:=S;
    end;
 Assign(f,'D:\Out.txt');
 Rewrite(f);
 for i:=1 to 5 do
  begin
   writeln(Fam[i]);
   writeln(f,Fam[i]);
  end;
 Close(f);
 Readln
End.