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

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: αρ, προσωρ, προσωρ2, ψ, ψηφία, ι
  ΠΡΑΓΜΑΤΙΚΕΣ: αρ2
  
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε τον αριθμό που θα ελέγξω: "
  ΔΙΑΒΑΣΕ αρ
  προσωρ <- αρ
  προσωρ2 <- αρ
  ψηφία <- 0
  ΟΣΟ προσωρ > 0 ΕΠΑΝΑΛΑΒΕ
    ψηφία <- ψηφία + 1
    προσωρ <- προσωρ DIV 10
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  αρ2 <- 0
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ ψηφία
    ψ <- προσωρ2 MOD 10
    αρ2 <- αρ2 + ψ*10^(ψηφία - ι) 
    προσωρ2 <- προσωρ2 DIV 10
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ Α_Μ(αρ2) = αρ ΤΟΤΕ
    ΓΡΑΨΕ "Ο ", αρ, " ΕΙΝΑΙ καρκινικός."
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "Ο ", αρ, " ΔΕΝ ΕΙΝΑΙ καρκινικός."
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κατοπτρικοί