ΠΡΟΓΡΑΜΜΑ Διάβασε_Πόλεις_Μοναδικές

ΜΕΤΑΒΛΗΤΕΣ

    ΧΑΡΑΚΤΗΡΕΣ: πόλεις[100], νέα_πόλη

    ΑΚΕΡΑΙΕΣ: i, j

    ΛΟΓΙΚΕΣ: υπάρχει

ΑΡΧΗ

    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100

        ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

            ΓΡΑΨΕ "Δώσε το όνομα της πόλης ", i, ":"

            ΔΙΑΒΑΣΕ νέα_πόλη

            ! Έλεγχος αν η πόλη έχει ήδη καταχωρηθεί

            υπάρχει ← ΨΕΥΔΗΣ

            ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ i-1

                ΑΝ πόλεις[j] = νέα_πόλη ΤΟΤΕ

                    υπάρχει ← ΑΛΗΘΗΣ

                ΤΕΛΟΣ_ΑΝ

            ΤΕΛΟΣ_ΓΙΑ

            ΑΝ υπάρχει ΤΟΤΕ

                ΓΡΑΨΕ "Η πόλη ", νέα_πόλη, " έχει ήδη δοθεί. Προσπαθήστε ξανά."

            ΤΕΛΟΣ_ΑΝ

        ΜΕΧΡΙΣ_ΟΤΟΥ υπάρχει = ΨΕΥΔΗΣ

        ! Καταχώρηση της μοναδικής πόλης στον πίνακα

        πόλεις[i] ← νέα_πόλη

    ΤΕΛΟΣ_ΓΙΑ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ