ΠΡΟΓΡΑΜΜΑ ΑΚΟΛΟΥΘΙΕΣ_FIBONACCI ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α[2],Β,Ν,Ι ΑΡΧΗ ΓΡΑΨΕ 'Θέστε τους δύο πρώτους όρους της ακολουθίας:' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2 ΓΡΑΨΕ 'Όρος',Ι,':' ΔΙΑΒΑΣΕ Α[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Πόσους όρους της ακολουθίας θέλετε;' Ν <-- 1 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ Ν<=0 ΤΟΤΕ ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά' ΤΕΛΟΣ_ΑΝ ΔΙΑΒΑΣΕ Ν ΜΕΧΡΙΣ_ΟΤΟΥ Ν>0 ΓΡΑΨΕ '' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν Β <-- Α[1]+Α[2] ΑΝ A[2]*Β<0 ΤΟΤΕ ΓΡΑΨΕ 'Σφάλμα υπερχείλισης' Ι <-- Ν+1 ΑΛΛΙΩΣ ΓΡΑΨΕ Β Α[1] <-- Α[2] Α[2] <-- Β ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ