how to write a fortran program to find fibonacci series