ClearAll["Global`*"]
f = 60.0;np = 48;ns=80;
c=12 *(10^(-6));L = 0.5; R = 100;
V0 =50.0 (E^(I (40 π/180)));
n = (ns/np); ω=2 π f;
ZL = ω L I ; Zc = ((-I)/(ω c)); Zs = 3R + ZL; Ztp=(1/(n^2))Zs;
Ztot=R + ((Ztp Zc)/(Ztp + Zc)); itot=(V0/Ztot);
 V1= V0  - itot R; i1 = V1/Ztp;
V2 = n V1;i2=((-V2)/Zs);V3=-3 R i2;

Print["ω = ", ω, " rad/s"]
Print["(Subscript[V, 0]) = ", V0, " V,  or  ",Abs[V0]," ∠ ",Arg[V0]," rad"]
Print["(Subscript[Z, L]) = ", ZL, " Ω,    and    (Subscript[Z, C]) = ", Zc, " Ω"]
Print["(Subscript[Z, secondary]) = ", Zs, " Ω,    and    (Subscript[Z, primary]) = ",Ztp]
Print["(Subscript[Z, total]) = ", Ztot, " Ω,  or  ",Abs[Ztot]," ∠ ",Arg[Ztot]," rad"]
Print["(Subscript[I, total]) = ", itot, " A,  or  ",Abs[itot]," ∠ ",Arg[itot]," rad"]
Print["(Subscript[V, 1]) = ", V1, " V,  or  ",Abs[V1]," ∠ ",Arg[V1]," rad"]
Print["(Subscript[I, 1]) = ", i1, " A,  or  ",Abs[i1]," ∠ ",Arg[i1]," rad"]
Print["(Subscript[V, 2]) = ", V2, " V,  or  ",Abs[V2]," ∠ ",Arg[V2]," rad"]
Print["(Subscript[I, 2]) = ", i2*1000, " mA,  or  ",Abs[i2]*1000," ∠ ",Arg[i2]," rad"]
Print["(Subscript[V, 3]) = ", V3, " V,  or  ",Abs[V3]," ∠ ",Arg[V3]," rad"]