Write a real Fortran function Series(x) which returns an approximate sum of the sequence I 1! - 23 + - 2! 3! 4! + i.e., which adds consecutive elements of this sequence until the addition of another term does not change the value of the sum. Write also a Fortran program which reads consecutive values and uses the function Series to find the approximate sum for each of these values. Assume that the value 0 indicates the end of data.