记录编号	18876	评测结果	AAAAAAAAAA
题目名称	背诵单词	最终得分	100
用户昵称	王者自由	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2010-09-21 14:06:44	内存使用	0.14 MiB

program letter;
var i,n:word;
  a:array[1..100]of string;
procedure sort(s,t:word);
var i,j:word; x,w:string;
begin
  i:=s; j:=t; x:=a[(i+j)div 2];
  repeat
    while a[i]<x do inc(i); while a[j]>x do dec(j);
    if i<=j then
    begin
      w:=a[i]; a[i]:=a[j]; a[j]:=w;
      inc(i); dec(j);
    end;
  until i>j;
   if s<j then sort(s,j);
   if i<t then sort(i,t);
end;
begin
  assign(input,'letter.in'); reset(input);
  assign(output,'letter.out'); rewrite(output);
  readln(n);
  for i:=1 to n do readln(a[i]);
  sort(1,n);
  for i:=1 to n do writeln(a[i]);
  close(input); close(output);
end.