ΠΡΟΓΡΑΜΜΑ ΠΑΙΧΝΙΔΙ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Σ,Ν
  ΧΑΡΑΚΤΗΡΕΣ:Α,Β
ΑΡΧΗ
  Σ <-- 0
  Ν <-- 0
  ΓΡΑΨΕ 'ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ: ΤΙ ΘΑ ΠΑΙΞΕΙΣ?'
  ΔΙΑΒΑΣΕ Α
  ΟΣΟ Α <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ: ΤΙ ΘΑ ΠΑΙΞΕΙΣ ?'
    ΔΙΑΒΑΣΕ Β
    ΑΝ Α='ΠΕΤΡΑ' ΚΑΙ Β='ΠΕΤΡΑ' ΤΟΤΕ
      ΓΡΑΨΕ 'ΙΣΟΠΑΛΙΑ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΠΕΤΡΑ' ΚΑΙ Β='ΜΟΛΥΒΙ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΠΕΤΡΑ' ΚΑΙ Β='ΨΑΛΙΔΙ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΠΕΤΡΑ' ΚΑΙ Β='ΧΑΡΤΙ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΜΟΛΥΒΙ' ΚΑΙ Β='ΠΕΤΡΑ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΜΟΛΥΒΙ' ΚΑΙ Β='ΜΟΛΥΒΙ' ΤΟΤΕ
      ΓΡΑΨΕ 'ΙΣΟΠΑΛΙΑ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΜΟΛΥΒΙ' ΚΑΙ Β='ΨΑΛΙΔΙ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΜΟΛΥΒΙ' ΚΑΙ Β='ΧΑΡΤΙ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΨΑΛΙΔΙ' ΚΑΙ Β='ΠΕΤΡΑ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΨΑΛΙΔΙ' ΚΑΙ Β='ΜΟΛΥΒΙ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΨΑΛΙΔΙ' ΚΑΙ Β='ΨΑΛΙΔΙ' ΤΟΤΕ
      ΓΡΑΨΕ 'ΙΣΟΠΑΛΙΑ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΨΑΛΙΔΙ' ΚΑΙ Β='ΧΑΡΤΙ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΧΑΡΤΙ' ΚΑΙ Β='ΠΕΤΡΑ' ΤΟΤΕ
      Σ <-- Σ+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΧΑΡΤΙ' ΚΑΙ Β='ΜΟΛΥΒΙ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΧΑΡΤΙ' ΚΑΙ Β='ΨΑΛΙΔΙ' ΤΟΤΕ
      Ν <-- Ν+1
      ΓΡΑΨΕ 'ΚΕΡΔΙΖΕΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ.'
    ΑΛΛΙΩΣ_ΑΝ Α='ΧΑΡΤΙ' ΚΑΙ Β='ΧΑΡΤΙ' ΤΟΤΕ
      ΓΡΑΨΕ 'ΙΣΟΠΑΛΙΑ'
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ: ΤΙ ΘΑ ΠΑΙΞΕΙΣ?'
    ΔΙΑΒΑΣΕ Α
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
   ΑΝ Σ=Ν ΤΟΤΕ
    ΓΡΑΨΕ 'ΥΠΑΡΧΕΙ ΙΣΟΠΑΛΙΑ.'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Ο ΠΡΩΤΟΣ ΠΑΙΚΤΗΣ ΚΕΡΔΙΣΕ',Σ,'ΦΟΡΕΣ ΚΑΙ Ο ΔΕΥΤΕΡΟΣ ΠΑΙΚΤΗΣ',Ν,'ΦΟΡΕΣ.'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ