NegaFibonacci Serisinin Terimlerini Yazdıran Program

 CLS
INPUT " TERİM SAYISI = " , N
P1= 1 : P2= -1
PRINT P1 , P2,
FOR Dongu = 1 TO N - 2
P3= P1 - P2 : PRINT P3 , :P1 = P2 : P2=P3
NEXT
END