uses crt;
var a:array[1..10000] of longint;
n,i,k,l:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
write('Nhap so k: '); readln(k);
write('Nhap vi tri so ',k,': '); readln(l);
for i:=n+1 downto l+1 do a[i]:=a[i-1];
a[l]:=k;
write('Day so sau khi them gia tri ',k,' vao: ');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.
