uses crt;
var i,n,b:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap so b:');readln(b);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=n+1 downto 2 do
a[i]:=a[i-1];
a[2]:=b;
write('A=');
for i:=1 to n do write(a[i]:3);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;

var n,k,h,i,j:longint;

a:array[1..100] of longint;

begin

clrscr;

write('Nhap so phan tu: '); readln(n);

for i:= 1 to n do readln(a[i]);

write('Nhap vao vi tri can chen: '); readln(k);

write('Nhap vao so can chen: '); readln(h);

for i:= n+1 downto k do

a[i] := a[i-1];

a[k] := h;

for i:= 1 to n+1 do

write(a[i]:5);

readln;

end.