program nevek;
var t:array[1..10] of string;
    i,j,k:byte;
    cs:string;
    f:text;
begin
     assign(f,'nev.txt');
     reset(f);
     while not eof(f) do
     begin
          inc(i);
          readln(f,t[i]);
     end;
     close(f);
     for j:=1 to i-1 do
      for k:=1 to i-j do
       if t[k]>t[k+1] then
                      begin
                           cs:=t[k];
                           t[k]:=t[k+1];
                           t[k+1]:=cs;
                      end;
     rewrite(f);
     for k:=1 to i do
      writeln(f,t[k]);
     close(f);
     readln
end.