program Task4;
var x: real;

function power(a, b:real):real;
begin
 if a<>0 then
  power:=exp(b * ln(abs(a)))*a/abs(a)
 else
  power:=0;
end;

function y(n:real):real;
begin
 y:= x +12*sin(2*x) + abs(power(n,3)+power(n,5));
end;

begin
 writeln('Type x:');
 readln(x);
 writeln('y(x)=', y(x):0:2);
end.