Используя процедуру для вычисления степени числа, найти значение выражения:

у = а4x^4 + а3 х^3 + a2 х^2 + a1 х + a0.

Коэффициенты а4, а3 а2, а1, а0 и х вводятся с клавиатуры.

Pascal:

function power (a: integer; n: integer) : integer;

begin

if n = 0 then

power : = 1

else if n mod 2 = 0 then

power : = sqr (power (a, n div 2))

else

power : = power (a, n - 1) * a;

end;

var

a: array[0 ... 4] of integer;

x, i, res: integer;

begin

res : = 0;

for i : = 4 downto 0 do

read (a[i]) ;

readln (x) ;

for i : = 4 downto 0 do

inc (res, a[i] * power (x, i)) ;

writeln (res)

end.