result := a[n];
	for i:=n-1 downto 0 do
		result := result * x + a[i];