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.
 

UHJvZ3JhbSBMYWIzIChvdXRwdXQpOwpjb25zdAogIEs9MjUuMDA1OwogIEw9MTM2LjAwMjsKICBQPTMuMTQxNTkyOyAKdmFyCiAgeCx5LGEsYjpyZWFsOwpiZWdpbgogIHdyaXRlbG4oJ1BsZWFzZSBlbnRlciB2YWx1ZSBmb3IgWCcpOwogIHJlYWRsbih4KTsKICBhIDo9IHNxcnQoKChLICsgZXhwKCgxLzcpKmxuKHgpKSkpIC8gMC4wMzQpOwogIHdyaXRlbG4oJ1Jlc3VsdCBpcyBBID0nLGEpOwogIGI6PWFyY3Rhbihjb3MoUC81KStjb3MoKDIqUCkvMykpKmxuKHgpOwogIHdyaXRlbG4oJ1Jlc3VsdCBpcyBCID0nLGIpOwogIGlmIDIqYT5iIHRoZW4KICAgICAgeTo9KGV4cChhKS1leHAoLWEpKS8yOwogIGlmIDIqYT1iIHRoZW4KICAgICAgeTo9YS1iOwogIGlmIDIqYTxiIHRoZW4KICAgICAgeTo9KGV4cChhLWIpK2V4cCgtYStiKSkvMjsKICB3cml0ZWxuKCdSZXN1bHQgaXMgWSA9Jyx5KTsKZW5kLgo=

MQoyCjEwCjQyCjExCg==

1
2
10
42
11