home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STEN / STEN10.MSA / PROGRAMS / PASCAL / FIBONACI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  2010-04-21  |  535 b   |  31 lines
  1. PROGRAM Fibonacci_Numbers;
  2.  
  3. USES
  4.     CRT;
  5.  
  6. VAR
  7.     A : INTEGER;
  8.     B : INTEGER;
  9.     C : INTEGER;
  10.     COUNT : INTEGER;
  11.     FILBON : INTEGER;
  12.  
  13. BEGIN
  14.      CLRSCR;
  15.      COUNT := 0;
  16.      WRITELN ('Please enter the amount of Fibonacci numbers');
  17.      READLN (FILBON);
  18.      A := 1;
  19.      B := 1;
  20.      C := A + B;
  21.      REPEAT
  22.      CLRSCR;
  23.      WRITE (A:2,' + ',B:2,' = ',C:2);
  24.      DELAY (1000);
  25.      C := A + B;
  26.      A := B;
  27.      B := C;
  28.      C := A + B;
  29.      COUNT := COUNT + 1;
  30.      UNTIL COUNT = FILBON;
  31. end.ə