program Project3;
{$APPTYPE CONSOLE}
var a:array[1..100] of integer;
i,k,n,m:integer;
begin
writeln('Vvedit kilkist elementiv v masyvi A[1..n]');
readln(n);
for i:=1 to n do begin
writeln('Vvedit ',i,' element masyvu A');readln(a[i]);end;
writeln('Vvedit chyslo yake potribno vstavyty');readln(m);
writeln('Vvedit nomer elementa yakogo potribno vstavyty');
readln(k);
for i:=n+1 downto k+1 do begin a[i]:=a[i-1];end;a[k]:=m;
for i:=1 to n+1 do write(a[i],' ');
readln;
end.