Răspuns:
program functie;
const pi=3.1415;
var x, f, sin3x: real;
begin
write('Dati valoarea lui x : ');
readln(x);
sin3x:=3*sin(x*pi/180)-4*sin(x*pi/180)*sin(x*pi/180)*sin(x*pi/180);
f:=sin3x-3*cos(x*pi/180)-1;
writeln('Valoarea functiei este :',f:15:5);
readln;
end.
Explicație: