program Fibonacci
#
integer*4 count, loop
integer*4 num1, num2, fib

1 format(A)
2 format(I4)
3 format(I6,' ')
4 format(' ')
write(6,1,advance='no')'How Many: '
read(5,2)count

num1 = 0
num2 = 1
write(6,3,advance='no')num1
write(6,3,advance='no')num2

for (loop = 3; loop<=count; loop=loop+1)
      {
          fib = num1 + num2
          write(6,3,advance='no')fib
          num1 = num2
          num2 = fib
       }
write(6,4)
end