Ответы и объяснения

2013-11-27T19:33:29+04:00
Var a:real;
begin
readln(a);
writeln(sin(3*x)*cos(3*x)+2.4x*x-0.5*x);
end.
вроде так.