ΠΡΟΓΡΑΜΜΑ καθρέπτης ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: δυναμη ΠΡΑΓΜΑΤΙΚΕΣ: βοηθ_αριθμός, αριθμος, νεος_αριθμός, π, υ ΛΟΓΙΚΕΣ: μονάδες ΑΡΧΗ ΓΡΑΨΕ 'Δώσε αριθμό : ' ΔΙΑΒΑΣΕ αριθμος δυναμη <- 0 μονάδες <- ΨΕΥΔΗΣ νεος_αριθμός <- 0 βοηθ_αριθμός <- αριθμος/ 10 ΟΣΟ βοηθ_αριθμός > 1 ΕΠΑΝΑΛΑΒΕ δυναμη <- δυναμη + 1 βοηθ_αριθμός <- βοηθ_αριθμός/ 10 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ δυναμη = 0 ΤΟΤΕ νεος_αριθμός <- αριθμος μονάδες <- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΟΣΟ (δυναμη >= 0) ΚΑΙ ΟΧΙ μονάδες ΕΠΑΝΑΛΑΒΕ π <- Α_Μ (αριθμος/ 10) υ <- Α_Μ (αριθμος - π* 10) νεος_αριθμός <- νεος_αριθμός + (10^ δυναμη* υ) αριθμος <- αριθμος/ 10 δυναμη <- δυναμη - 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ νεος_αριθμός ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ