ΠΡΟΓΡΑΜΜΑ   στοίχημα_3_παικτες
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣΟ1,ΠΟΣΟ2,ΠΟΣΟ3,Σ_ΠΟΣΟ,ΚΕΡΔΗ,ΚΕΡΔΗ1,ΚΕΡΔΗ2,ΚΕΡΔΗ3
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ1,ΟΝΟΜΑ2,ΟΝΟΜΑ3
ΑΡΧΗ
  ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ1,ΠΟΣΟ1
  ΓΡΑΨΕ'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ2,ΠΟΣΟ2
  ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ3,ΠΟΣΟ3
  ΓΡΑΨΕ 'ΔΩΣΕ ΚΕΡΔΗ'
  ΔΙΑΒΑΣΕ ΚΕΡΔΗ
  Σ_ΠΟΣΟ <-- ΠΟΣΟ1+ΠΟΣΟ2+ΠΟΣΟ3
  ΚΕΡΔΗ1 <-- ΠΟΣΟ1/Σ_ΠΟΣΟ*ΚΕΡΔΗ
  ΚΕΡΔΗ2 <-- ΠΟΣΟ2/Σ_ΠΟΣΟ*ΚΕΡΔΗ
  ΚΕΡΔΗ3 <-- ΠΟΣΟ3/Σ_ΠΟΣΟ*ΚΕΡΔΗ
  ΓΡΑΨΕ 'Ο',ΟΝΟΜΑ1,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ1,'ΕΥΡΩ,Ο',ΟΝΟΜΑ2,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ2,'ΕΥΡΩ ΚΑΙ Ο',ΟΝΟΜΑ3,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ3,'ΕΥΡΩ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ  στοίχημα_3_παικτες

ΠΡΟΓΡΑΜΜΑ   στοίχημα_3_παικτες
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣΟ1,ΠΟΣΟ2,ΠΟΣΟ3,Σ_ΠΟΣΟ,ΚΕΡΔΗ,ΚΕΡΔΗ1,ΚΕΡΔΗ2,ΚΕΡΔΗ3,α,λ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ1,ΟΝΟΜΑ2,ΟΝΟΜΑ3
ΑΡΧΗ
  λ <-- 1
  ΟΣΟ λ=1  ΕΠΑΝΑΛΑΒΕ

    ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ1,ΠΟΣΟ1
    ΓΡΑΨΕ'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ2,ΠΟΣΟ2
    ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ΚΑΙ ΠΟΣΟ ΣΥΜΜΕΤΟΧΗΣ'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ3,ΠΟΣΟ3
    ΓΡΑΨΕ 'ΔΩΣΕ ΚΕΡΔΗ'
    ΔΙΑΒΑΣΕ ΚΕΡΔΗ
    Σ_ΠΟΣΟ <-- ΠΟΣΟ1+ΠΟΣΟ2+ΠΟΣΟ3
    ΚΕΡΔΗ1 <-- ΠΟΣΟ1/Σ_ΠΟΣΟ*ΚΕΡΔΗ
    ΚΕΡΔΗ2 <-- ΠΟΣΟ2/Σ_ΠΟΣΟ*ΚΕΡΔΗ
    ΚΕΡΔΗ3 <-- ΠΟΣΟ3/Σ_ΠΟΣΟ*ΚΕΡΔΗ
    ΓΡΑΨΕ 'Ο',ΟΝΟΜΑ1,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ1,'ΕΥΡΩ,Ο',ΟΝΟΜΑ2,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ2,'ΕΥΡΩ ΚΑΙ Ο',ΟΝΟΜΑ3,'ΠΑΙΡΝΕΙ',ΚΕΡΔΗ3,'ΕΥΡΩ'
    ΓΡΑΨΕ 'ΕΠΕΛΕΞΕ 1 ΓΙΑ ΤΕΡΜΑΤΙΣΜΟ Ή 2 ΓΙΑ ΕΠΑΝΕΚΤΕΛΕΣΗ'
    ΔΙΑΒΑΣΕ α
    ΑΝ α=1  ΤΟΤΕ
      λ <-- 2
      ΓΡΑΨΕ 'ΠΑΝΤΑ ΤΕΤΟΙΑ'
    ΑΛΛΙΩΣ_ΑΝ α=2  ΤΟΤΕ
      λ <-- 1

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ  στοίχημα_3_παικτες