ΠΡΟΓΡΑΜΜΑ ΟΥΡΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΕΠ, ΕΜΠΡΟΣ, ΠΙΣΩ, Ι
  ΧΑΡΑΚΤΗΡΕΣ: Ο[10], Χ
ΑΡΧΗ
  ΕΜΠΡΟΣ <- 0
  ΠΙΣΩ <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
    Ο[Ι] <- '-'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΕ 1 ΓΙΑ ΕΙΣΑΓΩΓΗ, 2 ΓΙΑ ΕΞΑΓΩΓΗ 3 ΓΙΑ ΤΕΡΜΑΤΙΣΜΟ'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ ΕΠ
      ΑΝ ΕΠ <> 1 ΚΑΙ ΕΠ <> 2 ΚΑΙ ΕΠ <> 3 ΤΟΤΕ
        ΓΡΑΨΕ 'ΛΑΘΟΣ ΕΙΣΟΔΟΣ, ΔΩΣΕ 1 ΓΙΑ ΕΙΣΑΓΩΓΗ, 2 ΓΙΑ ΕΞΑΓΩΓΗ 3 ΓΙΑ ΤΕΡΜΑΤΙΣΜΟ'
        ΔΙΑΒΑΣΕ ΕΠ
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ = 1 Η ΕΠ = 2 Η ΕΠ = 3
    ΑΝ ΕΠ = 1 ΤΟΤΕ
      ΑΝ ΕΜΠΡΟΣ = 0 ΚΑΙ ΠΙΣΩ = 0 ΤΟΤΕ
        ΕΜΠΡΟΣ <- ΕΜΠΡΟΣ + 1
        ΠΙΣΩ <- ΠΙΣΩ + 1
        ΓΡΑΨΕ 'ΔΩΣΕ ΧΑΡΑΚΤΗΡΑ ΓΙΑ ΕΙΣΑΓΩΓΗ'
        ΔΙΑΒΑΣΕ Ο[ΠΙΣΩ] 
      ΑΛΛΙΩΣ_ΑΝ ΠΙΣΩ = 10 ΤΟΤΕ
        ΓΡΑΨΕ 'ΟΥΡΑ ΓΕΜΑΤΗ'
      ΑΛΛΙΩΣ
        ΠΙΣΩ <- ΠΙΣΩ + 1
        ΓΡΑΨΕ 'ΔΩΣΕ ΧΑΡΑΚΤΗΡΑ ΓΙΑ ΕΙΣΑΓΩΓΗ'
        ΔΙΑΒΑΣΕ Ο[ΠΙΣΩ] 
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ ΕΠ = 2 ΤΟΤΕ
      ΑΝ ΕΜΠΡΟΣ = 0 ΚΑΙ ΠΙΣΩ = 0 ΤΟΤΕ
        ΓΡΑΨΕ 'ΟΥΡΑ ΑΔΕΙΑ'
      ΑΛΛΙΩΣ_ΑΝ ΕΜΠΡΟΣ = ΠΙΣΩ ΤΟΤΕ
        ΓΡΑΨΕ 'ΕΞΑΓΕΤΑΙ ΤΟ ΣΤΟΙΧΕΙΟ ', Ο[ΕΜΠΡΟΣ] 
        Ο[ΕΜΠΡΟΣ] <- '-'
        ΕΜΠΡΟΣ <- 0
        ΠΙΣΩ <- 0
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'ΕΞΑΓΕΤΑΙ ΤΟ ΣΤΟΙΧΕΙΟ ', Ο[ΕΜΠΡΟΣ] 
        Ο[ΕΜΠΡΟΣ] <- '-'
        ΕΜΠΡΟΣ <- ΕΜΠΡΟΣ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ = 3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ