ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_4_6_9_Α
ΣΤΑΘΕΡΕΣ
  n = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, k, A[n, n] 
ΑΡΧΗ
  ΓΡΑΨΕ "ΓΕΜΙΣΜΑ ΑΝΑ ΣΤΗΛΗ :"
  k <- 0
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
      A[i, j] <- i + k
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    k <- k + n
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ! Εκτύπωση του πίνακα
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ n
      ΓΡΑΨΕ A[i, j], "  "
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ ! Αλλαγή γραμμής
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΡΑΨΕ "ΓΕΜΙΣΜΑ ΑΝΑ ΓΡΑΜΜΗ :"
  k <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ n
      A[i, j] <- j + k
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    k <- k + n
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ! Εκτύπωση του πίνακα
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ n
      ΓΡΑΨΕ A[i, j], "  "
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ ! Αλλαγή γραμμής
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ