помогите в паскале программу составить

Ответы:

var a:real,

begin

readln(a),

writeln(sin(3*x)*cos(3*x)+2.4x*x-0.5*x),

end.

вроде так.