Viết chương trình cho phép nhập một dãy gồm n số nguyên. Nhập thêm một số và chèn thêm vào dãy sau phần tử k.

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.