ΠΡΟΓΡΑΜΜΑ ΑΣΚ9ΣΕΛ120ΟΜΜ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΜΗΝΑ[25], ΗΜΕΡΑ[25], Ι, ΤΕΜΠ, Κ, Λ, ΜΗΝ1, ΜΗΝ2, ΗΜΕ1, ΗΜΕ2
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤΟΣ[25], ΤΕΜΠ3, Σ
  ΧΑΡΑΚΤΗΡΕΣ: ΠΕΡΙΓΡΑΦΗ[25], ΤΕΜΠ2
  ΛΟΓΙΚΕΣ: Φ
ΑΡΧΗ
  Σ <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 25
    ΔΙΑΒΑΣΕ ΜΗΝΑ[Ι], ΗΜΕΡΑ[Ι], ΠΕΡΙΓΡΑΦΗ[Ι], ΚΟΣΤΟΣ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 25
    ΓΙΑ Κ ΑΠΟ 25 ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
      ΑΝ ΜΗΝΑ[Κ] < ΜΗΝΑ[Κ - 1] Η ΜΗΝΑ[Κ] = ΜΗΝΑ[Κ - 1] ΚΑΙ ΗΜΕΡΑ[Κ] < ΗΜΕΡΑ[Κ - 1] ΤΟΤΕ
        ΤΕΜΠ <- ΜΗΝΑ[Κ] 
        ΜΗΝΑ[Κ] <- ΜΗΝΑ[Κ - 1] 
        ΜΗΝΑ[Κ - 1] <- ΤΕΜΠ
        ΤΕΜΠ <- ΗΜΕΡΑ[Κ] 
        ΗΜΕΡΑ[Κ] <- ΗΜΕΡΑ[Κ - 1] 
        ΗΜΕΡΑ[Κ - 1] <- ΤΕΜΠ
        ΤΕΜΠ2 <- ΠΕΡΙΓΡΑΦΗ[Κ] 
        ΠΕΡΙΓΡΑΦΗ[Κ] <- ΠΕΡΙΓΡΑΦΗ[Κ - 1] 
        ΠΕΡΙΓΡΑΦΗ[Κ - 1] <- ΤΕΜΠ2
        ΤΕΜΠ3 <- ΚΟΣΤΟΣ[Κ] 
        ΚΟΣΤΟΣ[Κ] <- ΚΟΣΤΟΣ[Κ - 1] 
        ΚΟΣΤΟΣ[Κ - 1] <- ΤΕΜΠ3
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΔΙΑΒΑΣΕ ΜΗΝ1, ΗΜΕ1, ΜΗΝ2, ΗΜΕ2
  ΚΑΛΕΣΕ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΑΣ(ΜΗΝ1, ΗΜΕ1, ΜΗΝ2, ΗΜΕ2) 

  Φ <- ΨΕΥΔΗΣ
  Ι <- 1
  ΟΣΟ Φ = ΨΕΥΔΗΣ ΚΑΙ Ι <= 25 ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΗΜΕ1 <= ΗΜΕΡΑ[Ι] ΚΑΙ ΜΗΝ1 <= ΜΗΝΑ[Ι] ΤΟΤΕ
      ΟΣΟ (ΜΗΝ2 > ΜΗΝΑ[Ι]) Η (ΜΗΝ2 = ΜΗΝΑ[Ι] ΚΑΙ ΗΜΕ2 >= ΗΜΕΡΑ[Ι]) ΕΠΑΝΑΛΑΒΕ
        ΓΡΑΨΕ ΠΕΡΙΓΡΑΦΗ[Ι], ΚΟΣΤΟΣ[Ι] 
        Σ <- Σ + ΚΟΣΤΟΣ[Ι] 
        Ι <- Ι + 1
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      Φ <- ΑΛΗΘΗΣ
    ΑΛΛΙΩΣ
      Ι <- Ι + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ Σ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΑΣ(Μ1, Η1, Μ2, Η2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Μ1, Η1, Μ2, Η2
ΑΡΧΗ
  ΑΝ Μ1 > Μ2 Η Μ1 = Μ2 ΚΑΙ Η1 > Η2 ΤΟΤΕ
    ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ(Μ1, Μ2) 
    ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ(Η1, Η2) 
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ(ΑΡ1, ΑΡ2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΑΡ1, ΑΡ2, ΤΕΜΠ
ΑΡΧΗ
  ΤΕΜΠ <- ΑΡ1
  ΑΡ1 <- ΑΡ2
  ΑΡ2 <- ΤΕΜΠ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 
!ArxeioEisodou
3
12
Α
30
5
7
Β
70
8
1
Γ
60
6
23
Δ
50
1
20
Ε
20
5
13
Ζ
90
5
12
Η
40
2
14
Θ
100
4
5
Ι
30
3
16
Κ
40
5
5
Λ
40
6
23
Μ
50
1
16
Ν
40
4
8
Ξ
30
5
10
Ο
60
4
2
Π
50
5
12
Ρ
20
1
10
Σ
30
4
14
Τ
30
5
1
Υ
40
5
14
Φ
60
6
6
Χ
20
5
30
Ψ
30
3
18
Ω
10
6
9
AA
10
4
30
1
20