ΠΡΟΓΡΑΜΜΑ ΨΗΦΙΑΚΗ_ΡΙΖΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, ΑΘΡ, Ψ, ΝΑΡΧ
ΑΡΧΗ
  ΓΡΑΨΕ 'ΕΥΡΕΣΗ ΨΗΦΙΑΚΗΣ ΡΙΖΑΣ'

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΑΚΕΡΑΙΟ ΘΕΤΙΚΟ'
    ΔΙΑΒΑΣΕ Ν
  ΜΕΧΡΙΣ_ΟΤΟΥ Ν > 0

  ΝΑΡΧ <- Ν

  ΑΘΡ <- 0

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    ΟΣΟ Ν > 0 ΕΠΑΝΑΛΑΒΕ
      Ψ <- Ν mod 10
      ΑΘΡ <- ΑΘΡ + Ψ
      Ν <- Ν div 10
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΑΝ ΑΘΡ >= 10 ΤΟΤΕ
      Ν <- ΑΘΡ
      ΑΘΡ <- 0
    ΤΕΛΟΣ_ΑΝ

  ΜΕΧΡΙΣ_ΟΤΟΥ ΑΘΡ >= 1 ΚΑΙ ΑΘΡ <= 9

  ΓΡΑΨΕ 'Η ΨΗΦΙΑΚΗ ΡΙΖΑ ΤΟΥ ΑΡΙΘΜΟΥ ', ΝΑΡΧ, ' ΕΙΝΑΙ Ο ΑΡΙΘΜΟΣ  ', ΑΘΡ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ