Я не понимаю, что такое "подробное решение", когда требуется всего лишь вывести значения, вычисленные по формуле...
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=47; // градусы
var xr:=DegToRad(x); // радианы
Writeln('a) ',(0.18-Power(sin(xr),3))/Sqr(Cos(xr))+
Sqrt(Abs(1-Sin(xr/3)+2.5*Log10(DegToRad(15))))/(17.8*xr-xr/2));
Writeln('b) ',0.47*Abs(xr*xr+Power(xr,1/3)+2.5)+Sin(xr)*ArcTan(xr/2)+0.7)
end.
Результат
a) -0.394038360126641
b) 2.91589590808865