uses crt;
var n,k,i,m:longint; a:array[1..10000000]of longint;
begin
   write('n=');readln(n);
   write('k=');readln(k);
   write('Vi tri cua k= ');readln(m);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   for i:=1 to m-1 do write(a[i],' ');
   write(k,' ');
   for i:=m to n do write(a[i],' ');
readln
end.

program chenpt;
uses crt;
type mang=array[1..100] of integer;
var n,i,x,dem,k:integer;
    a:mang;
procedure nhap(var a:mang; var n:integer);
var i:integer;
begin
write('nhap n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-------------------------------------------}

procedure xuat(a:mang; n:longint);
var i:integer;
begin
for i:=1 to n do
write(a[i],' ');
writeln;
end;

{------------------------------------------}
procedure chenk(var a:mang;var n:integer; x,k:integer);
var i:integer;
begin
for i:=n+1 downto k+1 do a[i]:=a[i-1];
a[k]:=x;
n:=n+1;
end;

{------------------------------------------}
begin
nhap(a,n);
xuat(a,n);
write('nhap vi tri:'); readln(k);
write('nhap so can chen:'); readln(x);
sapxep(a,n);
chenk(a,n,x,k);
xuat(a,n);
readln
end.