Fil:Blspascal-fibonacci.png

Beskrivelse

BLS Pascal 1.0

PROGRAM FIBONACCI;
VAR
  I : INTEGER;

FUNCTION FIB(N:INTEGER):INTEGER;
BEGIN
  IF (N <= 2) THEN FIB := 1
  ELSE FIB := FIB(N-1) + FIB(N-2);
END;

BEGIN
  FOR I := 1 TO 16 DO
    WRITE(FIB(I), ', ');
  WRITELN('...');
END.