ΠΡΟΓΡΑΜΜΑ Stoiva
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: top, επιλογή
  ΛΟΓΙΚΕΣ: είναι_μέσα
  ΠΡΑΓΜΑΤΙΚΕΣ: Α[100], χ, Σ, max, ΜΟ
ΑΡΧΗ
top <- 0
Σ <- 0
max <- 1
είναι_μέσα <- ΨΕΥΔΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
! Εμφάνιση του μενού.
  ΓΡΑΨΕ " 1. Ώθηση στοιχείου στη στοίβα και μέσος όρος"
  ΓΡΑΨΕ " 2. Απώθηση στοιχείου από τη στοίβα και μέσος όρος"
  ΓΡΑΨΕ " 3. Εμφάνιση MAX"
  ΓΡΑΨΕ " 4.'Έξοδος από το πρόγραμμα"
  ΓΡΑΨΕ 'Δώσε μία τιμή από 1 μέχρι 4'
  ΔΙΑΒΑΣΕ επιλογή
  ΑΝ επιλογή = 1 ΤΟΤΕ
    ! Ώθηση στη στοίβα,
    ΑΝ top < 100 ΤΟΤΕ
      ΔΙΑΒΑΣΕ χ
      top <- top + 1
      Α[top] <- χ
      Σ <- Σ + χ
      ΑΝ χ > max ΤΟΤΕ
         max <- χ
        είναι_μέσα <- ΑΛΗΘΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ "Γεμάτη στοίβα"
    ΤΕΛΟΣ_ΑΝ
    ΜΟ <- Σ/ top
    ΓΡΑΨΕ ΜΟ
  ΑΛΛΙΩΣ_ΑΝ επιλογή = 2 ΤΟΤΕ
  ! Απώθηση από τη στοίβα.
    ΑΝ top > 0 ΤΟΤΕ
      χ <- Α[top]
      Σ <- Σ - χ
      ΑΝ χ = max ΤΟΤΕ
        είναι_μέσα <- ΨΕΥΔΗΣ
      ΤΕΛΟΣ_ΑΝ
      top <- top - 1
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ " Άδεια στοίβα."
    ΤΕΛΟΣ_ΑΝ
    ΑΝ top <> 0 ΤΟΤΕ
       ΜΟ <- Σ/ top
       ΓΡΑΨΕ ΜΟ
    ΤΕΛΟΣ_ΑΝ

  ΑΛΛΙΩΣ_ΑΝ επιλογή = 3 ΤΟΤΕ
    ! Εμφάνιση max
    ΓΡΑΨΕ max
    ΑΝ είναι_μέσα = ΑΛΗΘΗΣ ΤΟΤΕ
       ΓΡΑΨΕ " Το max είναι ακόμα μέσα στοίβα."
    ΑΛΛΙΩΣ
       ΓΡΑΨΕ " Το max δεν είναι πλέον στην στοίβα."
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επιλογή = 4

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