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.
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.