ΠΡΟΓΡΑΜΜΑ Κατοπτρικοί2

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: αρ, προσωρ, προσωρ2, ψ, ψηφία, ι
  ΠΡΑΓΜΑΤΙΚΕΣ: αρ2
  
ΑΡΧΗ
  ΓΙΑ αρ ΑΠΟ 10000 ΜΕΧΡΙ 999999
    προσωρ <- αρ
    προσωρ2 <- αρ
    ψηφία <- 0
    ΟΣΟ προσωρ > 0 ΕΠΑΝΑΛΑΒΕ
      ψηφία <- ψηφία + 1
      προσωρ <- προσωρ DIV 10
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    αρ2 <- 0
    ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ψηφία
      ψ <- προσωρ2 MOD 10
      αρ2 <- αρ2 + ψ*10^(ψηφία - ι) 
      προσωρ2 <- προσωρ2 DIV 10
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ Α_Μ(αρ2) = αρ ΤΟΤΕ
      ΓΡΑΨΕ αρ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κατοπτρικοί2