viết chương trình nhập mảng một chiều gồm n phần tử kiểu số nguyên, n nhập từ bàn phím. Hãy chèn thêm phần tử thứ k vào dãy đã cho.

uses crt;

var n,i,k:byte;

a:array[0..100] of integer;

    t:integer;

BEGIN

        clrscr;

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

        for i:=1 to n do

        begin

                write('Nhap a[',i,']:');

                readln(a[i]);

        end;

        write('Nhap phan tu can chen:'); readln(t);

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

        for i:=k to n do a[i+1]:=a[i];

        a[k]:=t;

        write('Day so sau khi chen:');

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

        readln

END.

program chenphantu;

uses crt;

var A:array[1..100] of integer;

      n,i,k:byte;

      m:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i],' ');

writeln;

write('Nhap phan tu muon chen: ');   readln(m);

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

for i:=n+1 downto k+1 do

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

A[k]:=m;

writeln('Day sau khi chen ',m,' tai vi tri ',k,' la:');

for i:=1 to n+1 do

 write(A[i],' ');

readln

end.