ΠΡΟΓΡΑΜΜΑ Tαξινόμηση_με_ευθεία_εισαγωγή
ΣΤΑΘΕΡΕΣ
  πλήθος = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, temp, table[πλήθος] 
  ΛΟΓΙΚΕΣ: τέλος
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΔΙΑΒΑΣΕ table[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ πλήθος
    temp <- table[i] 
    j <- i - 1
    τέλος <- ΨΕΥΔΗΣ
    ΟΣΟ τέλος = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
      ΑΝ j = 0 ΤΟΤΕ   ! φτάσαμε στην αρχή του πίνακα
        τέλος <- ΑΛΗΘΗΣ
      ΑΛΛΙΩΣ_ΑΝ temp < table[j] ΤΟΤΕ ! βρήκαμε ένα μεγαλύτερο στοιχείο
        table[j + 1] <- table[j] 
        j <- j - 1
      ΑΛΛΙΩΣ      ! το στοιχείο θα μείνει σε αυτήν τη θέση
        τέλος <- ΑΛΗΘΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    table[j + 1] <- temp
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΓΡΑΨΕ table[i], "  "
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ