program trideni;
uses crt;

var cislo : array[1..20] of integer;
    vetsi,i,j,n,e,c : integer;


begin
  clrscr;
  e := 0;
  c := 0;
  writeln('zadej pocet cisel');
  read (n);
  for i := 1 to n do
    read (cislo[i]);

 (* for i := 1 to n - e do*)
  repeat

    begin
      for j := 1 to n -1 do
        if cislo[j] > cislo[j + 1]
          then
            begin
              vetsi := cislo[j];
              cislo[j] := cislo[j+1];
              cislo[j+1] := vetsi;
            end;


    end;
    c := c + 1;
   until c = n;

    for i := 1 to n do
      write (cislo[i]);
  readkey;
end.