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

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΓΕΜΙΣΜΑ ΑΝΑ ΓΡΑΜΜΗ :"
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ n
      ΓΡΑΨΕ A[i, j], "  "
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ