ΠΡΟΓΡΑΜΜΑ ΘΕΡΜΟΚΡΑΣΙΕΣ_ΕΒΔΟΜΑΔΑΣ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΘΕΡΜΟΚΡΑΣΙΑ[7], Ι, ΠΛΗΘΟΣ, Σ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΤΘ
  ΧΑΡΑΚΤΗΡΕΣ: ΗΜΕΡΑ[7] 
ΑΡΧΗ
  Σ <- 0
  ΠΛΗΘΟΣ <- 0
!ΕΙΣΑΓΩΓΗ ΘΕΡΜΟΚΡΑΣΙΩΝ ΑΝΑ ΗΜΕΡΑ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
    ΓΡΑΨΕ "ΔΩΣΕ ΗΜΕΡΑ  "
    ΔΙΑΒΑΣΕ ΗΜΕΡΑ[Ι] 
    ΓΡΑΨΕ "ΔΩΣΕ ΘΕΡΜΟΚΡΑΣΙΑ ΓΙΑ  ", ΗΜΕΡΑ[Ι] 
    ΔΙΑΒΑΣΕ ΘΕΡΜΟΚΡΑΣΙΑ[Ι] 
    Σ <- Σ + ΘΕΡΜΟΚΡΑΣΙΑ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΤΘ <- Σ/7                                                         ! ΜΕΣΗ ΤΙΜΗ
!ΕΜΦΑΝΙΣΗ
  ΓΡΑΨΕ "ΠΙΝΑΚΑΣ ΘΕΡΜΟΚΡΑΣΙΩΝ  "
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
    ΓΡΑΨΕ ΗΜΕΡΑ[Ι], "  ", ΘΕΡΜΟΚΡΑΣΙΑ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
  ΓΡΑΨΕ "ΜΕΣΗ ΤΙΜΗ ΘΕΡΜΟΓΡΑΣΙΩΝ :", ΜΤΘ
  ΓΡΑΨΕ "ΗΜΕΡΕΣ ΠΟΥ ΞΕΠΕΡΑΣΑΝ ΤΗΝ ΜΕΣΗ ΤΙΜΗ  "

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 7
    ΑΝ ΘΕΡΜΟΚΡΑΣΙΑ[Ι] > ΜΤΘ ΤΟΤΕ
      ΠΛΗΘΟΣ <- ΠΛΗΘΟΣ + 1
      ΓΡΑΨΕ ΗΜΕΡΑ[Ι], "  ", ΘΕΡΜΟΚΡΑΣΙΑ[Ι] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΠΛΗΘΟΣ ΘΕΡΜΟΚΡΑΣΙΩΝ ΠΟΥ ΞΕΠΕΡΑΣΑΝ ΤΗΝ ΜΕΣΗ ΤΙΜΗ :", ΠΛΗΘΟΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ