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+1 do write(M[i],',');
    readln
end.

uses crt;
var a: array[1..100] of Integer;

i,n, so,k: Integer;
begin
    clrscr;
    write('nhap so luong phan tu: ');    readln(n);
    for i:=1 to n do readln(a[i]);
    write('can chen so: ');    readln(so);
    write('vao vi tri k: ');    readln(k);
    for i:=n+1 downto k+1 do    
    a[i]:=a[i-1]; a[k]:=so; n:=n+1;
    for i:=1 to n do write(a[i]:4);
    readln;
End.