Σειριακή αναζήτηση όλων των θέσεων ενός στοιχείου σε πίνακα

Να γραφεί πρόγραμμα το οποίο θα εισάγει έξι ακέραιους αριθμούς σε έναν πίνακα και στην συνέχεια αφού δώσουμε μια τιμή προς αναζήτηση να ελέγχει αν υπάρχει αυτή η τιμή μέσα στον πίνακα και σε ποιες θέσεις.

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