program csokkeno;
Var a:array[1..5] of string;
    i,j:byte;
    cs:string;
begin
    For i:=1 to 5 do Readln(a[i]);
    for i:=1 to 4 do
     for j:=1 to 5-i do
      if a[j]>a[j+1] then
                     begin
                     cs:=a[j];
                     a[j]:=a[j+1];
                     a[j+1]:=cs
                     end;
    Writeln('Csokkenoben:');
    For i:=5 downto 1 do WriteLn(a[i]);
    ReadLn;
end.