var a: array [1..100] of integer;
 X {место куда вставить}, v {вставляемый элемент}, n{кол во элементов}, i {счетчик}  : integer;

begin
cls;
writeln ('введите число элементов массива');
readln (n);

writeln ('введите место куда вставить элемент');
readln (x);

write ('вставить элемент = ');
readln (v);


       for i:=1 to n do
       begin ;
       write ('a[',i,']=');
       readln (a[i]);
       end;
 writeln ();
 n:=n+1;

       for i:=n downto 1 do
       begin
           if i>x then
             a[i]:=a[i-1];

           if i=x  then
           begin
             a[i]:=v;
             break;
           end;


       end;

       for i:=1 to n do
       begin ;
         writeln ('a[',i,']=',a[i]);
       end;
end.