// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=4e-3; var x:=3.5;
var b:=Ln(x)+Sqr(Log10(a));
var y:=Sin(a)+Tan(x+b);
var D:=Power(Log10(Sqrt(Power(4.7,Sin(a))+Exp(Abs(x-a)))),1/3)+y*y;
Writeln('b=',b:0:3);
Writeln('y=',y:0:3);
Writeln('D=',D:0:3)
end.
Результат
b=7.003
y=1.867
D=4.399