program Solution;var x, y: real;beginwrite('Enter the value of x: ');readln(x);
y := ln(x) + 6 power(x, 3) cos(x + 9);
writeln('The value of y is: ', y:0:2);end.
program Solution;
var x, y: real;
begin
write('Enter the value of x: ');
readln(x);
y := ln(x) + 6 power(x, 3) cos(x + 9);
writeln('The value of y is: ', y:0:2);
end.