function b(x, y, z: real): real;beginb := exp(abs(x - y)) power(tan(z), 2) + 1) power(tan(z), 2);end;
function b(x, y, z: real): real;
begin
b := exp(abs(x - y)) power(tan(z), 2) + 1) power(tan(z), 2);
end;