program z1;
uses crt;
var x,b,c,d:real;
BEGIN
writeln('vvedite x ');
readln(x);
b:=((3*x*x*x+18*x*x)*x);
c:=(12*x*x-5);
d:=b+c;
writeln('otvet d ' ,d:6);
readln;
END.