{ Programmet udskriver fibonacci tabellen }

PROGRAM fibonacci;

USES
  crt;

VAR
  taeller,lengde,tal1,tal2,sum : INTEGER;

BEGIN
  ClrScr;
  GOTOXY(30,2);WRITE('FIBONACCI TABEL ');
  taeller := 0;
  GOTOXY(10,8);WRITE('Indtast l‘ngde: ');
  READLN(lengde);
  GOTOXY(10,10);WRITE('Indtast 2 tal: ');
  READLN(tal1);GOTOXY(29,10);
  READLN(tal2);
  GOTOXY(10,14);WRITE('TABEL');
  GOTOXY(10,16);WRITE(tal1,' ',tal2,' ');
  REPEAT
    taeller := taeller + 1;            { beregn summen }
    sum := tal1 + tal2;
    IF sum < 0 THEN
      BEGIN
        REPEAT UNTIL KEYPRESSED;      { summen m† ikke overstige 32767 }
        EXIT;
      END;
    IF taeller = 15 THEN
      BEGIN                            { linieskift }
        WRITELN;
        WRITE('         ');
      END;
    WRITE(sum,' ');
    tal1 := tal2;
    tal2 := sum;                       { ombyt tal }
  UNTIL taeller = lengde;
  REPEAT UNTIL KEYPRESSED;
END.