program sortare;
var x:array[1..50] of longint;
    f:text;
    n:2..50;
    indice,min,i,j,temp:longint;
begin
assign (f,'date.out'); rewrite (f);
write ('introduceti numarul de elemente ale vectorului: '); readln (n);
for i:=1 to n do begin write ('x[',i,']=');
                       readln (x[i]);
                 end;
for i:=1 to n-1 do begin min:=x[i];
                         indice:=i;
                         for j:=i+1 to n do if (x[j]<min) then begin min:=x[j];
                                                                     indice:=j;
                                                               end;
                         temp:=x[i];
                         x[i]:=x[indice];
                         x[indice]:=temp;
                   end;
for i:=1 to n do write (x[i],' ');
close (f);
end.