(Subscript[c, 1]) = 1; (Subscript[c, 2]) = -1; (Subscript[c, 3]) = -1;  
    (Subscript[c, 4]) = 1;
(Subscript[d, 1]) =  1; (Subscript[d, 2]) =  1;  (Subscript[d, 3]) = -1;  
    (Subscript[d, 4]) =  -1;

Table[(Subscript[ϕ, i]) =  (1/4) (1 + ξ (Subscript[c, i])) (1 + η (Subscript[d, i])), {i, 4}]

Table[
        Plot3D[(Subscript[ϕ, i]), {ξ, -1, 1}, {η, -1, 1}], {i, 
          4}];

ϕ(Subscript[2, 5]) =  (1 - (ξ^2)) (1 + η);
ϕ(Subscript[2, 6]) =  (1 - ξ) (1 - (η^2));
ϕ(Subscript[2, 7]) =  (1 - (ξ^2)) (1 - η);
ϕ(Subscript[2, 8]) =  (1 + ξ) (1 - (η^2));

Table[
        Plot3D[ϕ(Subscript[2, i]), {ξ, -1, 1}, {η, -1, 1}], {i, 5, 
          8}];

ϕ(Subscript[2, 1]) =  (Subscript[ϕ, 1])  -  (1/2) ϕ(Subscript[2, 5]) - (1/2) ϕ(Subscript[2, 8]);
ϕ(Subscript[2, 2]) =  (Subscript[ϕ, 2])  -  (1/2) ϕ(Subscript[2, 5]) - (1/2) ϕ(Subscript[2, 6]);
ϕ(Subscript[2, 3]) =  (Subscript[ϕ, 3])  -  (1/2) ϕ(Subscript[2, 6]) - (1/2) ϕ(Subscript[2, 7]);
ϕ(Subscript[2, 4]) =  (Subscript[ϕ, 4])  -  (1/2) ϕ(Subscript[2, 7]) - (1/2) ϕ(Subscript[2, 8]);
Table[
      Plot3D[ϕ(Subscript[2, i]), {ξ, -1, 1}, {η, -1, 1}], {i, 1, 
        8}]