1) Ввести с клавиатуры вещественные коэффициенты многочлена и значение x. Вывести значение многочлена z=a+bx^2+cx^3+dx^4

Var x, a, b, c, d:Integer;

Begin

Write ('Введите четыре коэффициента') ;

Read(a, b, c, d) ;

Write ('x=') ;read(x) ;

Write('z=', a+b*sqr(x) +c*exp(ln(x) *3)+d*exp(ln(x) *4));

End.