Data update

Task/Fibonacci-sequence/RATFOR/fibonacci-sequence.ratfor

@@ -0,0 +1,26 @@
+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