// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b, x) := ReadReal3('Введите через пробел a, b, x:');
var u := (a * a * x + Exp(-x) * Sqr(b * x)) / (b * x - Exp(-x) * Sin(Abs(x - b)) + 1);
$'a={a}, b={b}, x={x}, u={u,0:f5}'.Println
end.