ΠΡΟΓΡΑΜΜΑ ΠΡΩΤΑΘΛΗΜΑΤΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, ΕΤ[20], Σ[4], Κ, ΧΡΟΝΙΕΣ, ΑΘΡ2, ΑΘΡ4, ΒΑΘ[4, 40]
  ΧΑΡΑΚΤΗΡΕΣ: ΟΜ[4], ΠΡΩΤΑΘ[20]
ΑΡΧΗ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    ΔΙΑΒΑΣΕ ΟΜ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
    ΕΤ[j] <-- 2000 + j
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
      ΔΙΑΒΑΣΕ ΒΑΘ[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
    ΠΡΩΤΑΘ[j] <-- ΟΝ_ΠΡΩΤ(ΒΑΘ, ΟΜ, j)
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ ΠΡΩΤΑΘ[j], ΕΤ[j]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    Σ[i] <-- 0   ! συνολικά πρωταθλήματα κάθε ομάδας
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 20
      ΑΝ ΟΜ[i]=ΠΡΩΤΑΘ[j] ΤΟΤΕ
        Σ[i] <-- Σ[i]+1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    ΓΡΑΨΕ ΟΜ[i], Σ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΘΡ4 <-- 0  ! συνολικά γκολ για την 4η ομάδα στην 20ετία
  ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 40 ΜΕ ΒΗΜΑ 2
    ΑΘΡ4 <-- ΑΘΡ4+ ΒΑΘ[4, j]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  j <-- 2
  ΑΘΡ2 <-- 0
  ΧΡΟΝΙΕΣ <-- 0
  ΟΣΟ j<=40 ΚΑΙ ΑΘΡ2<=ΑΘΡ4 ΕΠΑΝΑΛΑΒΕ
    ΧΡΟΝΙΕΣ <-- ΧΡΟΝΙΕΣ+ 1
    ΑΘΡ2 <-- ΑΘΡ2+ ΒΑΘ[2, j]
    j <--  j+2
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΑΘΡ2<=ΑΘΡ4 ΤΟΤΕ
    ΓΡΑΨΕ 'ΔΕΝ ΤΑ ΞΕΠΕΡΑΣΕ'
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΧΡΕΙΑΣΤΗΚΕ', ΧΡΟΝΙΕΣ, 'ΧΡΟΝΙΕΣ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ




ΣΥΝΑΡΤΗΣΗ ΟΝ_ΠΡΩΤ ( ΒΑΘ, ΟΝ, ΧΡ ): ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΒΑΘ[4,40], ΧΡ, i, ΜΑΧ1, ΜΑΧ2, ΘΜΑΧ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[4]
ΑΡΧΗ
  ΜΑΧ1 <-- -1  ! για τις βαθμολογίες
  ΜΑΧ2 <-- -1  ! για τα γκολ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    ΑΝ ΒΑΘ[i,2*ΧΡ-1] > ΜΑΧ1 ΤΟΤΕ
      ΜΑΧ1 <--  ΒΑΘ[i,2*ΧΡ-1]
      ΘΜΑΧ <-- i
      ΜΑΧ2 <-- ΒΑΘ[i,2*ΧΡ]
    ΑΛΛΙΩΣ_ΑΝ  ΒΑΘ[i,2*ΧΡ-1] = ΜΑΧ1 ΤΟΤΕ
      ΑΝ ΒΑΘ[i,2*ΧΡ] > ΜΑΧ2 ΤΟΤΕ
        ΘΜΑΧ <-- i
        ΜΑΧ2 <-- ΒΑΘ[i,2*ΧΡ]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΟΝ_ΠΡΩΤ <-- ΟΝ[ΘΜΑΧ]
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ