fibo2.pas

   1 program fibonacci;\r
   2 \r
   3 const\r
   4      MAX = 20;\r
   5 \r
   6 var\r
   7    i, a0, a1, ai: integer;\r
   8 \r
   9 begin\r
  10      a0 := 0;\r
  11      a1 := 1;\r
  12      write( a0, a1 );\r
  13      for i := 2 to MAX do\r
  14         begin\r
  15              ai := a0 + a1;\r
  16              a0 := a1;\r
  17              a1 := ai;\r
  18              write( ai );\r
  19         end;\r
  20 end.\r