Α7_51.psc

ΠΡΟΓΡΑΜΜΑ Α7_51
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΚΩΔΙΚ, ΑΡΧ_ΨΗΦ,ΠΡΤ_ΨΗΦ, ΤΕΛ_ΨΗΦ
  ΧΑΡΑΚΤΗΡΕΣ: ΑΝΤ, ΧΩΡ_ΠΡΟ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ ΚΩΔΙΚ
  ΑΡΧ_ΨΗΦ <-- ΚΩΔΙΚ DIV 10000
  ΠΡΤ_ΨΗΦ <-- ΚΩΔΙΚ MOD 10000 MOD 1000 MOD 100 DIV 10
  ΤΕΛ_ΨΗΦ <-- ΚΩΔΙΚ MOD 10
  ΑΝ ΑΡΧ_ΨΗΦ = 0 ΤΟΤΕ
    ΑΝΤ <-- 'ΠΙΝΑΚΑΣ'
  ΑΛΛΙΩΣ_ΑΝ ΑΡΧ_ΨΗΦ = 1 ΤΟΤΕ
    ΑΝΤ <-- 'ΑΓΑΛΜΑ'
  ΑΛΛΙΩΣ_ΑΝ ΑΡΧ_ΨΗΦ = 2 ΤΟΤΕ
    ΑΝΤ <-- 'ΚΟΣΜΗΜΑ'
  ΑΛΛΙΩΣ_ΑΝ ΑΡΧ_ΨΗΦ = 3 ΤΟΤΕ
    ΑΝΤ <-- 'ΕΠΙΠΛΟ'
  ΑΛΛΙΩΣ
    ΑΝΤ <-- 'ΑΠΡΟΣΔΙΟΡΙΣΤΗ'
  ΤΕΛΟΣ_ΑΝ
  ΑΝ ΠΡΤ_ΨΗΦ = 1 ΚΑΙ ΤΕΛ_ΨΗΦ = 5 ΤΟΤΕ
    ΧΩΡ_ΠΡΟ <-- 'ΕΥΡ.ΕΝΩΣΗ'
  ΑΛΛΙΩΣ_ΑΝ ΠΡΤ_ΨΗΦ = 2 ΚΑΙ ΤΕΛ_ΨΗΦ = 1 ΤΟΤΕ
    ΧΩΡ_ΠΡΟ <-- 'ΑΜΕΡΙΚΗ'
  ΑΛΛΙΩΣ_ΑΝ ΠΡΤ_ΨΗΦ = 3 ΚΑΙ ΤΕΛ_ΨΗΦ = 2 ΤΟΤΕ
    ΧΩΡ_ΠΡΟ <-- 'ΑΦΡΙΚΗ'
  ΑΛΛΙΩΣ_ΑΝ ΠΡΤ_ΨΗΦ = 4 ΚΑΙ ΤΕΛ_ΨΗΦ = 3 ΤΟΤΕ
    ΧΩΡ_ΠΡΟ <-- 'ΚΙΝΑ'
  ΑΛΛΙΩΣ
    ΧΩΡ_ΠΡΟ <-- 'ΑΠΡΟΣΔΙΟΡΙΣΤΗ'
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ ΑΝΤ, ΧΩΡ_ΠΡΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ