Ответ:
Код ниже
Объяснение:
program calc;
var b, x, z: real;
begin
writeln ('Введите значение b:');
readln(b);
writeln ('Введите аргумент функции x:');
readln(x);
if x < 1 then
z := ln(abs(x*x*x)) - b*b*b
else z := (abs(sin(x)) + b)/(x - b);
writeln(z);
end.