begin
  var alpha := 4.345;
  var x := Sin(alpha) * (Sin(alpha) / Cos(alpha));
  WriteLn('Ответ: ', x < 0 ? Ln(x + alpha) : x > 1 ? 2 - Ln(x + alpha) : 1 / Ln(x + alpha));
end.