ΠΡΟΓΡΑΜΜΑ Στοίβα
ΣΤΑΘΕΡΕΣ
  N = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: S[N], top, επιλογή
ΑΡΧΗ
  top <- 0 !Δείχνει την κορυφή της στοίβας, ότι είναι άδεια
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΚΑΛΕΣΕ ΔείξεΜενού(επιλογή) 
    ΑΝ επιλογή = 1 ΤΟΤΕ
      ΚΑΛΕΣΕ Ώθηση(S, top)
      ΚΑΛΕΣΕ ΔείξεΣτοίβα(S, top)
    ΑΛΛΙΩΣ_ΑΝ επιλογή = 2 ΤΟΤΕ
      ΚΑΛΕΣΕ Απώθηση(S, top)
      ΚΑΛΕΣΕ ΔείξεΣτοίβα(S, top)
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ επιλογή = 0
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΔείξεΜενού(επιλογή1) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: επιλογή1
ΑΡΧΗ
  ΓΡΑΨΕ '0. Έξοδος από το πρόγραμμα'
  ΓΡΑΨΕ '1. Ώθηση αριθμού στη στοίβα'
  ΓΡΑΨΕ '2. Απώθηση αριθμού από τη στοίβα'
  ΓΡΑΨΕ 'Δώστε επιλογή:  '
  ΔΙΑΒΑΣΕ επιλογή1
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΔείξεΣτοίβα(Σ, top)
ΣΤΑΘΕΡΕΣ
  N = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Σ[N], top, i
ΑΡΧΗ
  ΓΡΑΨΕ 'Η στοίβα περιέχει τα εξής στοιχεία:'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ top
    ΓΡΑΨΕ Σ[i], '  '
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ !απλά κατεβάζει τον δρομέα στην επόμενη γραμμή
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ Ώθηση(Σ, top)
ΣΤΑΘΕΡΕΣ
  N = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Σ[N], top, αριθμός
ΑΡΧΗ
  ΑΝ top = N ΤΟΤΕ
    ΓΡΑΨΕ 'Η στοίβα γέμισε, δε χωράει άλλον αριθμό'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δώσε αριθμό για ώθηση στη στοίβα:  '
    ΔΙΑΒΑΣΕ αριθμός
    top <- top + 1
    Σ[top] <- αριθμός
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ Απώθηση(Σ, top)
ΣΤΑΘΕΡΕΣ
  N = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Σ[N], top
ΑΡΧΗ
  ΑΝ top = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'Η στοίβα είναι άδεια'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Έβγαλα τον αριθμό ', Σ[top] 
    top <- top - 1
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ