Pascal :

var i,m,n,j:integer;
a:array[1..1000] of integer;
begin
 readln(n);
 readln(m);
 for i:=1 to m do read(a[i]);
 if n>a[i] then
   begin
    a[i+1]:=n;
    for j:=1 to i do write(a[j],' ');
    writeln(a[i+1]);
    exit;
   end;
 for i:=1 to m do
  if n<=a[i] then break;
 for j:=m downto i do
  a[j+1]:=a[j];
 a[i]:=n;
 for j:=1 to m do write(a[j],' ');
 writeln(a[m+1]);



end.