ΠΡΟΓΡΑΜΜΑ Άσκηση_1
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΒΑΘ[4], ΜΙΚ
  ΑΚΕΡΑΙΕΣ: Ι, Β
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ, Άθρ
ΑΡΧΗ
  Άθρ <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
    ΓΡΑΨΕ 'Δώσε τον βαθμό του κριτή '
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ ΒΑΘ[Ι] 
    ΜΕΧΡΙΣ_ΟΤΟΥ ΒΑΘ[Ι] = 'Α' Η ΒΑΘ[Ι] = 'Β' Η ΒΑΘ[Ι] = 'Γ'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
    ΑΝ ΒΑΘ[Ι] = 'Α' ΤΟΤΕ
      Άθρ <- Άθρ + 20
    ΑΛΛΙΩΣ_ΑΝ ΒΑΘ[Ι] = 'Β' ΤΟΤΕ
      Άθρ <- Άθρ + 15
    ΑΛΛΙΩΣ
      Άθρ <- Άθρ + 10
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΟ <- Άθρ/4
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
    ΑΝ ΒΑΘ[Ι] = 'Α' ΤΟΤΕ
      Β <- 20
    ΑΛΛΙΩΣ_ΑΝ ΒΑΘ[Ι] = 'Β' ΤΟΤΕ
      Β <- 15
    ΑΛΛΙΩΣ
      Β <- 10
    ΤΕΛΟΣ_ΑΝ
    ΑΝ Β < ΜΟ ΤΟΤΕ
      ΓΡΑΨΕ Ι, ' αριθμητική σειρά κριτή με βαθμό μικρότερο του μέσου όρου'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΙΚ <- ΒΑΘ[1] 
  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 4
    ΑΝ ΒΑΘ[Ι] > ΜΙΚ ΤΟΤΕ
      ΜΙΚ <- ΒΑΘ[Ι] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
    ΑΝ ΒΑΘ[Ι] = ΜΙΚ ΤΟΤΕ
      ΓΡΑΨΕ Ι, ' αριθμητική σειρά κριτή που έδωσε τον μικρότερο βαθμό'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ