ΠΡΟΓΡΑΜΜΑ ΕΛΕΓΧΟΣ_ΖΗΜΙΑΣ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ι, Πλήθος, Μήνες_με_ζημία ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[6], ΕΞΟΔΑ[6] ΑΡΧΗ ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΓΡΑΨΕ 'Δώσε τα έσοδα του ', Ι, 'ου μήνα:' ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι] ΓΡΑΨΕ 'Δώσε τα έξοδα του ', Ι, 'ου μήνα:' ΔΙΑΒΑΣΕ ΕΞΟΔΑ[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Μήνες_με_ζημία <- Υπολογισμός(ΕΣΟΔΑ, ΕΞΟΔΑ) ΓΡΑΨΕ 'Μήνες που είχαν ζημία:', Μήνες_με_ζημία ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ Υπολογισμός(Πίνακας1, Πίνακας2): ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: Πίνακας1[6], Πίνακας2[6] ΑΚΕΡΑΙΕΣ: Ι, Πλήθος ΑΡΧΗ Πλήθος <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΑΝ Πίνακας2[Ι] < Πίνακας1[Ι] ΤΟΤΕ Πλήθος <- Πλήθος + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Υπολογισμός <- Πλήθος ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ