ΠΡΟΓΡΑΜΜΑ Max_Min
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: A, Max, Min
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε αριθμό'
  ΔΙΑΒΑΣΕ A
  Max <- A
  Min <- A
  ΟΣΟ A <> 0 ΕΠΑΝΑΛΑΒΕ
    ΑΝ A > Max ΤΟΤΕ
      Max <- A
    ΤΕΛΟΣ_ΑΝ
    ΑΝ A < Min ΤΟΤΕ
      Min <- A
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'Δώσε αριθμό'
    ΔΙΑΒΑΣΕ A
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Μεγαλύτερος ', Max
  ΓΡΑΨΕ 'Μικρότερος ', Min
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Max_Min