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

  ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΥΣ ΑΡΙΘΜΟΥΣ ΤΟΥ ΠΑΙΚΤΗ (1-49)'
  ΓΡΑΨΕ '============================='
  ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ 6
    ΓΡΑΨΕ 'ΑΡΙΘΜΟΣ',Α
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ !ΕΛΕΓΧΕΙ ΑΝ Ο ΑΡΙΘΜΟΣ ΥΠΑΡΧΕΙ ΗΔΗ ΚΑΙ ΑΝ ΕΙΝΑΙ ΕΚΤΟΣ ΟΡΙΩΝ
      ΒΡΕΘΗΚΕ <-- ΨΕΥΔΗΣ
      ΔΙΑΒΑΣΕ ΠΑΙΚΤΗΣ[Α]
      ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ Α-1
        ΑΝ ΠΑΙΚΤΗΣ[Α]=ΠΑΙΚΤΗΣ[Β] ΤΟΤΕ
          ΒΡΕΘΗΚΕ <-- ΑΛΗΘΗΣ
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ ΒΡΕΘΗΚΕ=ΑΛΗΘΗΣ ΤΟΤΕ
        ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΠΟΥ ΕΔΩΣΕΣ ΥΠΑΡΧΕΙ ΗΔΗ. ΔΩΣΕ ΞΑΝΑ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
      ΑΝ ΠΑΙΚΤΗΣ[Α]<1 Η ΠΑΙΚΤΗΣ[Α]>49 ΤΟΤΕ
        ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΠΟΥ ΕΔΩΣΕΣ ΕΙΝΑΙ ΕΚΤΟΣ ΟΡΙΩΝ (1-49). ΔΩΣΕ ΞΑΝΑ ΑΡΙΘΜΟ'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ ΚΑΙ ΠΑΙΚΤΗΣ[Α]>=1 ΚΑΙ ΠΑΙΚΤΗΣ[Α]<=49
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

!ΜΗΔΕΝΙΣΜΟΣ ΠΙΝΑΚΑ ΕΠΙΤΥΧΙΩΝ ΑΝΑ ΚΛΗΡΩΣΗ
  ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ 100
    ΕΠΙΤΥΧΙΕΣ[Α] <-- 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ 6 !ΜΕΤΡΑΕΙ ΤΟΥΣ ΑΡΙΘΜΟΥΣ ΤΟΥ ΠΑΙΚΤΗ
    ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ 100
      ΓΙΑ Γ ΑΠΟ 1 ΜΕΧΡΙ 6
        !ΕΛΕΓΧΕΙ ΓΙΑ ΚΑΘΕ ΑΡΙΘΜΟ ΤΟΥ ΠΑΙΚΤΗ (ΜΕΤΡΗΤΗΣ Α) ΑΝ ΥΠΑΡΧΕΙ ΣΤΗ ΣΥΓΚΕΚΡΙΜΕΝΗ ΚΛΗΡΩΣΗ (ΜΕΤΡΗΤΗΣ Β)
        ΑΝ ΚΛΗΡΩΣΕΙΣ[Β,Γ]=ΠΑΙΚΤΗΣ[Α] ΤΟΤΕ
          ΕΠΙΤΥΧΙΕΣ[Β] <-- ΕΠΙΤΥΧΙΕΣ[Β]+1
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

!ΕΥΡΕΣΗ ΜΕΓΙΣΤΟΥ ΣΤΟΝ ΠΙΝΑΚΑ ΕΠΙΤΥΧΙΕΣ
  ΘΕΣΗ_ΜΕΓΙΣΤΟ <-- 1
  ΜΕΓΙΣΤΟ <-- ΕΠΙΤΥΧΙΕΣ[1]
  ΓΙΑ Α ΑΠΟ 2 ΜΕΧΡΙ 100
    ΑΝ ΕΠΙΤΥΧΙΕΣ[Α]> ΜΕΓΙΣΤΟ ΤΟΤΕ
      ΘΕΣΗ_ΜΕΓΙΣΤΟ <-- Α
      ΜΕΓΙΣΤΟ <-- ΕΠΙΤΥΧΙΕΣ[Α]
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Ο ΠΑΙΚΤΗΣ ΕΙΧΕ ΤΙΣ ΠΕΡΙΣΣΟΤΕΡΕΣ ΕΠΙΤΥΧΙΕΣ (',ΜΕΓΙΣΤΟ,') ΣΤΗΝ',ΘΕΣΗ_ΜΕΓΙΣΤΟ,'ΚΛΗΡΩΣΗ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ