begin
  var a := ReadLnReal('Введите число A:');
  var b := ReadLnReal('Введите число B:');
  var x := ReadLnReal('Введите число X:');
  WriteLn('Ответ: Y=',x >= 1 ? Exp(x) + 1 : (0 < x) and (x < 1) ? (1+Cos(2*Sqrt(a*x)))/2 : Ln(b + Sqrt(Abs(x))));
end.