Uses crt;
Var M: array[1..100] of integer;
      i,n,k:integer;
Begin
   Clrscr;
   Write('Nhap so luong phan tu: ');
   Readln(n); 

   For i:=1 to n do
   Begin
     Write('Nhap gia tri cho phan tu thu ',i,': '); 
     Readln(M[i]);
   End;
   Write('Nhap vi tri chen: ');
   Readln(k);
   For i:=n+1 downto k+1 do M[i]:=M[i-1];
   Write('Nhap so can chen: '); 
   Readln(M[k]);
   Write('Day so sau khi chen la: ');
   For i:=1 to n do write(M[i],', ');
   Write(M[n+1],'. ');
   Readln
End.

Uses crt;
Var M: array[1..100] of integer;
      i,n,k:integer;
Begin
   Clrscr;
   Write('Nhap so luong phan tu: ');
   Readln(n); 

   For i:=1 to n do
   Begin
     Write('Nhap gia tri cho phan tu thu ',i,': '); 
     Readln(M[i]);
   End;
   Write('Nhap vi tri chen: ');
   Readln(k);
   For i:=n+1 downto k+1 do M[i]:=M[i-1];
   Write('Nhap so can chen: '); 
   Readln(M[k]);
   Write('Day so sau khi chen la: ');
   For i:=1 to n do write(M[i],', ');
   Write(M[n+1],'. ');
   Readln
End.

Uses crt;
Var M: array[1..100] of integer;
      i,n,k:integer;
Begin
   Clrscr;
   Write('Nhap so luong phan tu: ');
   Readln(n); 

   For i:=1 to n do
   Begin
     Write('Nhap gia tri cho phan tu thu ',i,': '); 
     Readln(M[i]);
   End;
   Write('Nhap vi tri chen: ');
   Readln(k);
   For i:=n+1 downto k+1 do M[i]:=M[i-1];
   Write('Nhap so can chen: '); 
   Readln(M[k]);
   Write('Day so sau khi chen la: ');
   For i:=1 to n do write(M[i],', ');
   Write(M[n+1],'. ');
   Readln
End.