var A:Array[0..50]of integer;
i,n,x,y,j:integer;
begin
clrscr;
randomize;
write('nhap so phan tu:');readln(n);
for i:=1 to n do
A[i]:=random(300)-random(300);
write('nhap vi tri can them:');readln(x);
write('so can chen:');readln(y);
for i:=n+1 downto x+1 do
A[i]:=A[i-1];
A[x]:=y;
for i:=1 to n+1 do
write(A[i],';');
readln
end.