ΠΡΟΓΡΑΜΜΑ στοιβα

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΠΙΝ_ΣΤ[5], Χ
  ΑΚΕΡΑΙΕΣ: ΤΟΠ, ΕΠΙΛ

ΑΡΧΗ
  ΤΟΠ <- 0 !αδεια στοιβα
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ! ΜΕΝΟΥ
    ΓΡΑΨΕ "1. ΩΘΗΣΗ"
    ΓΡΑΨΕ "2. ΑΠΩΘΗΣΗ"
    ΓΡΑΨΕ "3. ΤΕΛΟΣ"
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ! ΕΛΕΓΧΟΣ ΕΓΚΥΡΗΣ ΕΠΙΛΟΓΗΣ
      ΓΡΑΨΕ "ΔΩΣΕ ΕΠΙΛΟΓΗ"
      ΔΙΑΒΑΣΕ ΕΠΙΛ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙΛ = 1 Η ΕΠΙΛ = 2 Η ΕΠΙΛ = 3
    ΑΝ ΕΠΙΛ = 1 ΤΟΤΕ
 !ΩΘΗΣΗ
      ΓΡΑΨΕ "ΚΑΝΩ ΩΘΗΣΗ"
      ΓΡΑΨΕ "ΔΩΣΕ ΣΤΟΙΧΕΙΟ"
      ΔΙΑΒΑΣΕ Χ
      ΑΝ ΤΟΠ < 5 ΤΟΤΕ
        ΤΟΠ <- ΤΟΠ + 1
        ΠΙΝ_ΣΤ[ΤΟΠ] <- Χ
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ "ΥΠΕΡΧΕΙΛΙΣΗ"
      ΤΕΛΟΣ_ΑΝ

    ΑΛΛΙΩΣ_ΑΝ ΕΠΙΛ = 2 ΤΟΤΕ
 !ΑΠΩΘΗΣΗ
      ΓΡΑΨΕ "ΚΑΝΩ ΑΠΩΘΗΣΗ"
      ΑΝ ΤΟΠ >= 1 ΤΟΤΕ
        ΓΡΑΨΕ "ΠΑΡΕ ΤΟ ", ΠΙΝ_ΣΤ[ΤΟΠ] 
        ΤΟΠ <- ΤΟΠ - 1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ "ΥΠΟΧΕΙΛΙΣΗ"
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙΛ = 3

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