program PascalExample;
varx, result : real;
beginwrite('Enter the value of x: ');readln(x);
result := power(x, 4) + 1.5 power(x, 3) - 2 power(x, 3) + 4 power(cos(x), 2) sin(4 * x);
writeln('The result is: ', result);
end.
program PascalExample;
var
x, result : real;
begin
write('Enter the value of x: ');
readln(x);
result := power(x, 4) + 1.5 power(x, 3) - 2 power(x, 3) + 4 power(cos(x), 2) sin(4 * x);
writeln('The result is: ', result);
end.