(Subscript[a, r_])[θ_]:=(1/2)*(r^2)*θ;
(Subscript[b, r_])[θ_]:=(1/2)*(r^2)*Sin[θ];
rad=2;
Plot[{(Subscript[a, rad])[θ],(Subscript[b, rad])[θ],(Subscript[a, rad])[θ]-(Subscript[b, rad])[θ]},{θ,0,2*π},
AxesLabel->{Automatic,"Area"},
PlotLegends->{"(Subscript[a, r])(θ) = "<>ToString[(Subscript[a, r])[θ],StandardForm],"(Subscript[b, r])(θ) = "<>ToString[(Subscript[b, r])[θ],StandardForm],"(Subscript[a, r])(θ) - (Subscript[b, r])(θ)"},
PlotLabel->"r = "<>ToString[rad],
Ticks->{Table[((2π)/6)*s,{s,0,6}],Table[((4π)/4)*s,{s,0,4}]}
]
SetOptions[EvaluationNotebook[],Magnification->1.5];

(Subscript[θ, 1])=(π/3);
(Subscript[θ, 2])=((4π)/3);

(Subscript[a, rad])[(Subscript[θ, 1])]
(Subscript[b, rad])[(Subscript[θ, 1])]
(Subscript[a, rad])[(Subscript[θ, 1])]-(Subscript[b, rad])[(Subscript[θ, 1])]
%//N

(Subscript[a, rad])[(Subscript[θ, 2])]
(Subscript[b, rad])[(Subscript[θ, 2])]
(Subscript[a, rad])[(Subscript[θ, 2])]-(Subscript[b, rad])[(Subscript[θ, 2])]
%//N