uses crt;

var a:array[1..500]of integer;

      n,i,m,x:integer;

Begin

       clrscr;

       write('n = ');readln(n);

       write('x = ');readln(x);

       write('m = ');readln(m);

       for i:=1 to n do

       begin

              write('a[',i,'] = ');readln(a[i]);

       end;

       for i:=n+1 downto x+1 do a[i]:=a[i-1];

       a[x]:=m;

       n:=n+1;

       write('day sau khi them m: ');

       for i:=1 to n do write(a[i],' ');

       readln

End.

uses crt;
var i,n,m,x:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
write('nhap so m:');readln(m);
write('nhap vi tri x:');readln(x);
for i:=n+1 downto x+1 do a[i]:=a[i-1];
a[x]:=m;
write('mang la:');
for i:=1 to n+1 do write(a[i],' ');
readln;
end.