Code:

(*Bai 4*)
n = Input["Nhap Vao n"];
TaoDSLe[n_] := Module[{A, i},
      A = Table[i*2 - 1, {i, 1, n}];
      Return [A]
      ];
(*a/ Tong So Nguyen To Trong Day*)
TongSNT[A_] := Module[{B, n, i},
      Print["===== Tong Cac So Nguyen To ====="];
      B = Select[A, PrimeQ];
      n = Length[B];
      Print["Tong: ", Sum[B[[i]], {i, n}]];
      ];
(*b/ Tong binh phuong*)
TongBinhPhuong[A_] := Module[{n, i},
      Print["===== Tong Binh Phuong ====="];
      n = Length[A];
      Print["Tong: ", Sum[(A[[i]]^2), {i, n}]]
      ];
(*c/ Tao 1 day moi 30 so nguyen trong doan [-100, 100]*)
TronMang[A_] := Module[{B, D, i, n},
      Print["===== Tron Mang ====="];
      B = {};
      D = {};
      n = Length[A];
      B = Table[Random[Integer, {-100, 100}], {n}];
      For[i = 1, i ≤ n, i++,
        D = Append[D, Part[A, i]];
        D = Append[D, Part[B, i]]
        ];
      Print["DS Sau Khi Tron: ", D];
      ];
(*e/ Tao ds moi bo di nhug phan tu chan*)
DSChan[A_] := Module[{i, n, B},
      Print["===== DS PT Vi Tri Chan ====="];
      B = {};
      n = Length[A];
      For[i = 1, i ≤ n, i++,
        If[OddQ[i],
          B = Append[B, A[[i]]]
          ]
        ];
      Print["DS: ", B];
      ];
(*f/ Tong tat ca cac phan tu vi tri chan trong day*)
TongVTChan[A_] := Module[{i, n, T},
      Print["===== Tong Cac PT Vi Tri Chan ====="];
      T = 0;
      n = Length[A];
      For[i = 1, i ≤ n, i++,
        If[EvenQ[i],
          T += A[[i]]
          ]
        ];
      Print["Tong: ", T];
      ];
(*g/ Tao day moi bang cach loai bo so nguyen to*)
LoaiSNT[A_] := Module[{B, n, i},
      Print["===== DS Sau Khi Loai So Nguyen To ====="];
      B = {};
      n = Length[A];
      For[i = 1, i ≤ n, i++,
        If[PrimeQ[A[[i]]] == False,
          B = Append[B, A[[i]]]
          ]
        ];
      Print["DS: ", B]
      ];
A = TaoDSLe[n]
TongSNT[A]
TongBinhPhuong[A]
TronMang[A]
DSChan[A]
TongVTChan[A]
LoaiSNT[A]

Các bác cứ từ từ tham khảo thêm nha.