ΠΡΟΓΡΑΜΜΑ  κρεμαλα
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:κ,ι,Ζ,πλ,flag
  ΧΑΡΑΚΤΗΡΕΣ:γ[30],γρ,Δ[30]
ΑΡΧΗ
  flag <-- 0
  πλ <-- 2
  Ζ <-- 7
  ι <-- 1
  ΓΡΑΨΕ 'αν ΤΕΛΙΩΣΕΙΣ τη λεξη πατα εντερ'
  ΓΡΑΨΕ 'Η λεξη να μην εχει πανω απο 30γραμματα(α-ω)(οχι κεφαλαια)'
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ'Δωσε ',ι,'γραμμα'
    ΔΙΑΒΑΣΕ γ[ι]
    ι <-- ι+1
  ΜΕΧΡΙΣ_ΟΤΟΥ γ[ι-1]=''
  ι <-- ι-2
  ΓΙΑ κ απο 2 μέχρι 30
    ΑΝ κ<=ι τότε
      Δ[κ] <-- '-'
    ΑΛΛΙΩΣ
      Δ[κ] <-- ''
      γ[κ] <-- ''
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Δ[ι] <-- γ[ι]
  Δ[1] <-- γ[1]
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  ''
  ΓΡΑΨΕ  Δ[1],Δ[2],Δ[3],Δ[4],Δ[5],Δ[6],Δ[7],Δ[8],Δ[9],Δ[10],Δ[11],Δ[12],Δ[13],Δ[14],Δ[15],Δ[16],Δ[17],Δ[18],Δ[19],Δ[20],Δ[21],Δ[22],Δ[23],Δ[24],Δ[25],Δ[26],Δ[27],Δ[28],Δ[29],Δ[30]
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δωσε γραμμα'
    ΔΙΑΒΑΣΕ γρ
    Για κ απο 2 μέχρι ι-1
      ΑΝ γ[κ]=γρ   τότε
        Δ[κ] <-- γρ
        ΓΡΑΨΕ Δ[1],Δ[2],Δ[3],Δ[4],Δ[5],Δ[6],Δ[7],Δ[8],Δ[9],Δ[10],Δ[11],Δ[12],Δ[13],Δ[14],Δ[15],Δ[16],Δ[17],Δ[18],Δ[19],Δ[20],Δ[21],Δ[22],Δ[23],Δ[24],Δ[25],Δ[26],Δ[27],Δ[28],Δ[29],Δ[30]
        πλ <-- πλ+1
        flag <-- 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ flag<>1 τότε
      Ζ <-- Ζ-1
      ΓΡΑΨΕ 'ΕΧΕΙΣ',Ζ,'ΖΩΕΣ!!!'
    ΤΕΛΟΣ_ΑΝ
    flag <-- 0
  ΜΕΧΡΙΣ_ΟΤΟΥ Ζ=0 Η πλ=ι
  ΑΝ Ζ=0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΕΧΑΣΕΣ η λεξη ηταν',γ[1],γ[2],γ[3],γ[4],γ[5],γ[6],γ[7],γ[8],γ[9],γ[10],γ[11],γ[12],γ[13],γ[14],γ[15],γ[16],γ[17],γ[18],γ[19],γ[20],γ[21],γ[22],γ[23],γ[24],γ[25],γ[26],γ[27],γ[28],γ[29],γ[30]
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΚΕΡΔΙΣΕΣ'
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ