Вычислить значение многочлена в точке x. x задать прямо в коде. вывести ответ на экран. вычисление произвести оптимально (подсказка - сх. гор.)

Var
  x:real;
begin
  Write('x='); Read(x);
  Writeln(101+x*(30+x*(25+x*(10+x*(6+x
end.