// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (x,y,z):=(3.981e2,-1.625e3,0.512);
var a:=Power(2,-x)*Sqrt(x+Power(Abs(y),0.25))*Power(Exp(x-1/Sin(z)),1/3);
Writeln('a=',a)
end.
Результат
a=6.29191454262948E-62