ΠΡΟΓΡΑΜΜΑ Θέμα_Γ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α, Β, πλΑ, πλΒ, Δ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ Α, Β
  πλΑ <- 0
  πλΒ <- 0
  ΔΙΑΒΑΣΕ Δ
  ΟΣΟ Δ <> 0 ΕΠΑΝΑΛΑΒΕ
    ΑΝ Α >= Β ΤΟΤΕ
      ΑΝ Δ <= Α ΤΟΤΕ
        ΓΡΑΨΕ "Τοποθέτηση στην αποθήκη Α"
        Α <- Α - Δ
        πλΑ <- πλΑ + 1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ "Προώθηση"
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ ! Α < Β
      ΑΝ Δ <= Β ΤΟΤΕ
        ΓΡΑΨΕ "Τοποθέτηση στην αποθήκη Β"
        Β <- Β - Δ
        πλΒ <- πλΒ + 1
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ "Προώθηση"
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    ΔΙΑΒΑΣΕ Δ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΚΑΛΕΣΕ ΑΠΟΓΡΑΦΗ(πλΑ, πλΒ) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΠΟΓΡΑΦΗ(ΔΑ, ΔΒ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΔΑ, ΔΒ
ΑΡΧΗ
  ΑΝ ΔΑ = 0 ΚΑΙ ΔΒ = 0 ΤΟΤΕ
    ΓΡΑΨΕ "Καμία αποθήκευση στο αεροδρόμιο"
  ΑΛΛΙΩΣ_ΑΝ ΔΑ > ΔΒ ΤΟΤΕ
    ΓΡΑΨΕ "Περισσότερα δέματα στην αποθήκη Α "
  ΑΛΛΙΩΣ_ΑΝ ΔΒ > ΔΑ ΤΟΤΕ
    ΓΡΑΨΕ "Περισσότερα δέματα στην αποθήκη Β "
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "Ισάριθμα "
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ