ΠΡΟΓΡΑΜΜΑ ΙΠΤΑΜΕΝΟΙ_ΦΡΟΝΤΙΣΤΕΣ
! Ερώτημα 4.1
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΠΛΗΘ, Ι, Κ, ΜΗΝ, ΓΡ, ΣΤ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΙΛΙΑ[1000, 12], ΜΑΧ, ΜΙΝ, ΜΑΧΜΙΛ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[1000] 
ΑΡΧΗ
! Ερώτημα 4.2
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε πλήθος ιπτάμενων φροντιστών <=1000):'
    ΔΙΑΒΑΣΕ ΠΛΗΘ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΠΛΗΘ <= 1000
! Ερώτημα 4.2 Εισαγωγή δεδομένων ιπτάμενων φροντιστών
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ
    ΓΡΑΨΕ 'Δώσε ονοματεπώνυμο '
    ΔΙΑΒΑΣΕ ΟΝ[Ι] 
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΓΡΑΨΕ 'Δώσε μίλια πτήσης κατά τον ', Κ, 'ο μήνα του περασμενου ετους'
      ΔΙΑΒΑΣΕ ΜΙΛΙΑ[Ι, Κ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.3 Εμφανίζει  τα περισσότερα μίλια που πραγματοποίησε κάθε φροντιστής  και τον αντίστοιχο  μήνα
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ
    ΜΑΧ <- ΜΙΛΙΑ[ Ι, 1] 
    ΜΗΝ <- 1
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΑΝ ΜΙΛΙΑ[ Ι, Κ] > ΜΑΧ ΤΟΤΕ
        ΜΑΧ <- ΜΙΛΙΑ[ Ι, Κ] 
        ΜΗΝ <- Κ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ " ΦΡΟΝΤΙΣΤΗΣ :", ΟΝ[Ι], " ΠΕΡΙΣΣΟΤΕΡΑ ΜΙΛΙΑ:", ΜΑΧ, " ΜΗΝΑ :", ΜΗΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Για καθε Μήνα να εμφανίζεται ο Μήνας και τα λιγότερα μίλια που
! πραγματοποιήθηκαν τον Μήνα αυτό
  ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
    ΜΙΝ <- ΜΙΛΙΑ[ 1, Κ] 
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ
      ΑΝ ΜΙΛΙΑ[ Ι, Κ] < ΜΙΝ ΤΟΤΕ
        ΜΙΝ <- ΜΙΛΙΑ[Ι, Κ] 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ " ΜΗΝΑΣ :", Κ, "ΛΙΓΟΤΕΡΑ ΜΙΛΙΑ :", ΜΙΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ
! Ο ΦΡΟΝΤΙΣΤΗΣ ΜΕ ΤΑ ΠΕΡΙΣΣΟΤΕΡΑ ΜΙΛΙΑ
  ΜΑΧΜΙΛ <- ΜΙΛΙΑ[ 1, 1] 
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΑΝ ΜΙΛΙΑ[ Ι, Κ] > ΜΑΧΜΙΛ ΤΟΤΕ
        ΜΑΧΜΙΛ <- ΜΙΛΙΑ[ Ι, Κ] 
        ΓΡ <- Ι
        ΣΤ <- Κ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΦΡΟΝΤΙΣΤΗΣ ΜΕ ΠΕΡΙΣΣΟΤΕΡΑ ΜΙΛΙΑ :", ΟΝ[ΓΡ], " ΤΟΝ ΜΗΝΑ :", ΣΤ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ