var
a:array[1..100]of longint;
n,i,min,minx:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
min:=1;
for i:=2 to n do
if a[i]<a[min] then
min:=i;
minx:=a[min];
for i:=min-1 downto 1 do
a[i+1]:=a[i];
a[1]:=minx;
for i:=1 to n do
write(a[i],* *);
readln;readln;
end.