Program Lab3 (output);
const
  K=25.005;
  L=136.002;
  P=3.141592; 
var
  x,y,a,b:real;
begin
  writeln('Please enter value for X');
  readln(x);
  a := sqrt(((K + exp((1/7)*ln(x)))) / 0.034);
  writeln('Result is A =',a);
  b:=arctan(cos(P/5)+cos((2*P)/3))*ln(x);
  writeln('Result is B =',b);
  if 2*a>b then
      y:=(exp(a)-exp(-a))/2;
  if 2*a=b then
      y:=a-b;
  if 2*a<b then
      y:=(exp(a-b)+exp(-a+b))/2;
  writeln('Result is Y =',y);
end.