===== PascalABC.NET =====

begin

 var x := ReadReal;

 var (K, L) := (2.7, 3.0);

 var y, a: real;

 if x < 16 then

   y := L*x/(x+1)

 else

   y := K + 2*x;

 a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));

 Print('y =', y, '   a =', a)

end.