home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d849 / amigapascal.lha / AmigaPascal / Examples / Example1 next >
Text File  |  1993-03-31  |  163b  |  17 lines
  1. PROGRAM Fibonacci
  2.  
  3. VAR a,b,c: INTEGER
  4.  
  5. BEGIN
  6.   a := 1
  7.   b := 0
  8.   c := 46
  9.   WHILE c DO
  10.   BEGIN
  11.     WRITELN a
  12.     a := a + b
  13.     b := a - b
  14.     c := c - 1
  15.   END
  16. END
  17.