!--------------------------------------------
! Αναζήτηση στοιχείου σε δισδιάστατο πινακα
! και εμφάνιση όλων των θέσεων που θα βρεθεί.
!--------------------------------------------

ΠΡΟΓΡΑΜΜΑ ΑΝΑΖΗΤΗΣΗ_ΣΕ_ΔΙΣΔΙΑΣΤΑΤΟ_ΠΙΝΑΚΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΤΙΜΗ,ΘΕΣΗ_Γ,ΘΕΣΗ_Σ,Π[3,4],Ι,Κ
  ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕ
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
      ΓΡΑΨΕ 'ΔΩΣΕ ΤΙΜΗ ΓΙΑ ΤΟ (', Ι,',',Κ, ') ΣΤΟΙΧΕΙΟ'
      ΔΙΑΒΑΣΕ Π[Ι,Κ]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
    ΓΡΑΨΕ
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
      ΓΡΑΨΕ_ Π[Ι,Κ],'//'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΡΑΨΕ 'ΔΩΣΕ ΤΗ ΤΙΜΗ ΠΟΥ ΖΗΤΑΣ'
  ΔΙΑΒΑΣΕ ΤΙΜΗ
  ΒΡΕΘΗΚΕ <-- ΨΕΥΔΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
      ΑΝ Π[Ι,Κ]=ΤΙΜΗ ΤΟΤΕ
        ΒΡΕΘΗΚΕ <-- ΑΛΗΘΗΣ
        ΘΕΣΗ_Γ <-- Ι
        ΘΕΣΗ_Σ <-- Κ
        ΓΡΑΨΕ 'Η ΤΙΜΗ ',ΤΙΜΗ,' ΒΡΕΘΗΚΕ ΣΤΗ ΘΕΣΗ ',Ι,',',Κ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Η ΤΙΜΗ ' ,ΤΙΜΗ, ' ΔΕΝ ΒΡΕΘΗΚΕ ΣΤΟΝ ΠΙΝΑΚΑ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ