procedure vstavka(c:mas);
var k,j,t: integer;
begin
  for i:= 2 to n do
   begin
     k:=1; t:=c[i]; j:=i-1;
     while j>0 do
       begin
         if c[j]<=c[i] then
          begin
            k:=j;
            j:=0;
          end else
           j:=j-1;
        end;
        j:=i;
         while j>k+1 do
          begin
           c[j]:=c[j-1];
           j:=j-1;
          end;
          c[k+1]:=t;
  end;
writeln('vstavka');
vivod(c);
end;