ΠΡΟΓΡΑΜΜΑ SUB_EXERCISE_4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: x
ΑΡΧΗ
  ΓΡΑΨΕ "ΑΝΤΙΣΤΡΟΦΟΣ ΑΡΙΘΜΟΣ"
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "Δώστε έναν θετικό ακέραιο αριθμό : "
    ΔΙΑΒΑΣΕ x
  ΜΕΧΡΙΣ_ΟΤΟΥ x > 0
  ΚΑΛΕΣΕ ΑΝΤΙΣΤΡΟΦΟΣ(x)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΣΤΡΟΦΟΣ(αριθμός)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:αριθμός
  ΛΟΓΙΚΕΣ: ΜΗΔΕΝΙΚΑ
ΑΡΧΗ
  ΜΗΔΕΝΙΚΑ <- ΑΛΗΘΗΣ
  ΟΣΟ αριθμός <> 0 ΕΠΑΝΑΛΑΒΕ
    ΑΝ αριθμός mod 10 <> 0 ΤΟΤΕ
      ΜΗΔΕΝΙΚΑ <- ΨΕΥΔΗΣ
    ΤΕΛΟΣ_ΑΝ
    ΑΝ ΜΗΔΕΝΙΚΑ = ΨΕΥΔΗΣ ΤΟΤΕ
      ΓΡΑΨΕ αριθμός mod 10, " "
    ΤΕΛΟΣ_ΑΝ
    αριθμός <- αριθμός div 10
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ