a) program InsertValue;
var
  A: array[1..5] of Integer; // Khai báo mảng A có 5 phần tử nguyên
  i: Integer;
begin
  A[1] := 4;
  A[2] := 7;
  A[3] := 6;
  A[4] := 4;
  A[5] := 5;

  // Tìm vị trí của số 6 và chèn 1 vào trước nó
  for i := 1 to 5 do
  begin
    if A[i] = 6 then
    begin
      for j := 5 downto i + 1 do
        A[j] := A[j - 1]; // Dịch phần tử sang phải để tạo chỗ trống
      A[i] := 1; // Chèn số 1 vào vị trí trống
      Break; // Thoát khỏi vòng lặp khi tìm được vị trí số 6
    end;
  end;

  // In ra mảng sau khi chèn số 1
  for i := 1 to 6 do
    Write(A[i], ' ');
end.
b)
program InsertValues;
var
  A: array[1..5] of Integer; // Khai báo mảng A có 5 phần tử nguyên
  i: Integer;
begin
  A[1] := 4;
  A[2] := 7;
  A[3] := 6;
  A[4] := 4;
  A[5] := 5;

  // Chèn giá trị mới vào các vị trí cần thiết
  A[3] := 12; // Chèn 12 vào vị trí thứ 3
  A[5] := 8;  // Chèn 8 vào vị trí thứ 5

  // In ra mảng sau khi chèn giá trị mới
  for i := 1 to 5 do
    Write(A[i], ' ');
end.