const n=2;
var formula:real;
begin
formula:=(2*n-1)/Exp(n*Ln(2));
writeln (formula);
end.
var
n, res : real;
begin
read (n);
res := (2 * n - 1) / (exp (n * ln (2)));
writeln (res);
end.
Примечание: а в степени b = exp (b * (ln (a)); Если непонятно, то google к вашим услугам.
