490 INPUT"χΧΕΔΙΤΕ N";N:DIM A(N)
500 A(1)=1:PRINT A(1);:FOR I=2 TO N
510 IF I/2=INT(I/2) THEN A(I)=A(I/2)ELSEA(I)=A(INT(I/2))+A(INT(I/2)+1)
520 PRINT A(I);:NEXT:PRINT:PRINT "An=";A(N)
530 END