Вычислить значение многочлена

[tex] x^{5} + 6x^{4} + 10x^{3} + 25x^{2} + 30x+101[/tex]

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

Если хочется фиксированное значение х в программе, замените строку Write('x='); Read(x); на x:=значение;

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