var
  alpha, x, y: real;

begin
  alpha := 4.345;
  x := Sin(alpha) * (Sin(alpha) / Cos(alpha));
  if x < 0 then y := Ln(x + alpha)
           else if (0 <= x) and (x <= 1) then y := 1 / Ln(x + alpha)
                                         else y := 2 - Ln(x + alpha);
  WriteLn('Ответ: ', y:8:5);
end.