//Задача 1.47 Кучеренко

Begin
  var x, a, y: real;
  
  write('Vvedite x: ');
  readln(x);
  
  write('Vvedite a: ');
  readln(a);
  
  if x = a then
    y := ln(x - cos(a * x))
  else
    y := exp(x - sin(a + x));
    
  writeln('Y = ', y);
end.