Code:
namespace ConsoleApplication1;
Function Main(args : array of String) : Int32;
Begin
Var list := New List<String>;
Var i : Int32;
For i := 0 To 1024 Do
List.Add(i.ToString);
List.Sort(Function(s1, s2 : String) : Integer
Begin
Result := String.Compare(s1, s2);
End);
For S In List Do
Writeln(S);
readln;
End;
end.