ΠΡΟΓΡΑΜΜΑ δέντρο
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, Χ, Ψ, ύψος, γραμμή, τάξη, πλ
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε το ύψος του δέντρου σε γραμμές"
  ΔΙΑΒΑΣΕ ύψος
  Χ <- 1
  ΓΡΑΨΕ Χ
  ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ ύψος
    γραμμή <- 0
    τάξη <- 1
    Ψ <- Χ MOD 10
    Χ <- Χ DIV 10
    πλ <- 1
    ΟΣΟ Χ <> 0 ΕΠΑΝΑΛΑΒΕ
      ΟΣΟ Χ <> 0 ΚΑΙ Χ MOD 10 = Ψ ΕΠΑΝΑΛΑΒΕ
        πλ <- πλ + 1
        Χ <- Χ DIV 10
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ Χ <> 0 ΤΟΤΕ
        γραμμή <- γραμμή + (Ψ + πλ*10)*τάξη
        τάξη <- τάξη*100
        Ψ <- Χ MOD 10
        Χ <- Χ DIV 10
        πλ <- 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    γραμμή <- γραμμή + (Ψ + πλ*10)*τάξη
    ΓΡΑΨΕ γραμμή
    Χ <- γραμμή
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ