Вычислить значение выражения

function log2(a: real): real;
begin
  log2 := ln(a) / ln(2);
end;
 
function tan(x: real): real;
begin
  tan := sin(x) / cos(x);
end;
 
var
  x, y, z: real;
 
begin
  //readln(x, y);
  x := 3.5;
  y := 1.25;
  z := exp(x * y) + ln((1 - exp(y)) * log2(tan(x)));
  writeln(z);
end.

function power(a, n: real): real;
//a^n это можно представить ввиде exp(ln(a)*n) 
begin
  power := exp(ln(a) * n);
end;
 
function log2(a: real): real;
begin
  log2 := ln(a) / ln(2);
end;
 
function tan(x: real): real;
begin
  tan := sin(x) / cos(x);
end;
 
var
  x, y, z: real;
 
begin
  //readln(x, y);
  x := 3.5;
  y := 1.25;
  z := exp(power(x, y)) + ln((1 - exp(y)) * log2(tan(x)));
  writeln(z);
end.