!Το Υπουργείο Παιδείας παρέχει μέσω του διαδικτύου μια συλλογή από εκπαιδευτικά βίντεο. Ο αριθμός των επισκέψεων που δέχεται κάθε βίντεο καταγράφεται από ειδικό λογισμικό. Τα βίντεο διακρίνονται σε 3 κατηγορίες ανάλογα με την επισκεψιμότητά τους, σύμφωνα με τον παρακάτω πίνακα:
!ΧΑΜΗΛΗ     ΑΠΟ 1 ΕΩΣ ΚΑΙ 100
!ΜΕΣΑΙΑ     ΑΠΟ 101 ΕΩΣ ΚΑΙ 1000
!ΥΨΗΛΗ      ΠΑΝΩ ΑΠΟ 1000
!Τα βίντεο με μηδενικές επισκέψεις δεν κατατάσσονται σε καμία κατηγορία. Να αναπτύξετε πρόγραμμα το οποίο:
!Γ1. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων.
!Γ2. Να διαβάζει επαναληπτικά τον τίτλο κάθε βίντεο και τον αριθμό των επισκέψεων που δέχτηκε. Η είσοδος των δεδομένων να τερματίζεται, όταν ως τίτλος βίντεο δοθεί η λέξη «ΤΕΛΟΣ». Να γίνεται έλεγχος εγκυρότητας ώστε ο αριθμός των επισκέψεων να μην είναι αρνητικός.
!Γ3. Να βρίσκει και να εμφανίζει τον τίτλο του βίντεο με τον μεγαλύτερο αριθμό επισκέψεων. Να θεωρήσετε ότι είναι μοναδικό.
!Γ4. Να υπολογίζει για καθεμία από τις τρεις κατηγορίες επισκεψιμότητας το πλήθος των βίντεο που καταχωρίστηκαν σε αυτή. Να εμφανίζει για κάθε κατηγορία: το όνομά της και το πλήθος των βίντεο που περιλαμβάνει.
!Γ5. Να βρίσκει και να εμφανίζει το όνομα της κατηγορίας επισκεψιμότητας στην οποία καταχωρίστηκαν τα περισσότερα βίντεο. Να θεωρήσετε ότι είναι μοναδική.          Σημείωση : Το πλήθος των βίντεο δεν είναι γνωστό.

ΠΡΟΓΡΑΜΜΑ ΘέμαΓ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: max, χ, μ, υ, Επισκ, maxΚατ, Π
  ΧΑΡΑΚΤΗΡΕΣ: Τίτλος, maxΤίτλος, maxΌνομα
ΑΡΧΗ
  χ <- 0
  μ <- 0
  υ <- 0
  Π <- 0
  max <- -1
  ΔΙΑΒΑΣΕ Τίτλος
  ΟΣΟ Τίτλος <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ Επισκ
    ΜΕΧΡΙΣ_ΟΤΟΥ Επισκ >= 0

    ΑΝ Επισκ > max ΤΟΤΕ
      max <- Επισκ
      maxΤίτλος <- Τίτλος
    ΤΕΛΟΣ_ΑΝ

    ΑΝ Επισκ >= 1 ΚΑΙ Επισκ <= 100 ΤΟΤΕ
      χ <- χ + 1
    ΑΛΛΙΩΣ_ΑΝ Επισκ >= 101 ΚΑΙ Επισκ <= 1000 ΤΟΤΕ
      μ <- μ + 1
    ΑΛΛΙΩΣ_ΑΝ Επισκ > 1000 ΤΟΤΕ
      υ <- υ + 1
    ΤΕΛΟΣ_ΑΝ
    Π <- Π + 1
    ΔΙΑΒΑΣΕ Τίτλος
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ Π = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΔΕΝ ΔΟΘΗΚΕ ΚΑΝΕΝΑ ΒΙΝΤΕΟ'
  ΑΛΛΙΩΣ

    ΑΝ Επισκ > 0 ΤΟΤΕ
      ΓΡΑΨΕ maxΤίτλος

      ΓΡΑΨΕ 'Χαμηλή ', χ
      ΓΡΑΨΕ 'Μεσαία ', μ
      ΓΡΑΨΕ 'Υψηλή ', υ

      maxΚατ <- χ
      maxΌνομα <- 'Χαμηλή'

      ΑΝ μ > maxΚατ ΤΟΤΕ
        maxΚατ <- μ
        maxΌνομα <- 'Μεσαία'
      ΤΕΛΟΣ_ΑΝ

      ΑΝ υ > maxΚατ ΤΟΤΕ
        maxΚατ <- υ
        maxΌνομα <- 'Υψηλή'
      ΤΕΛΟΣ_ΑΝ

      ΓΡΑΨΕ maxΌνομα
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΤΑ ΒΙΝΤΕΟ ΕΧΟΥΝ ΜΗΔΕΝΙΚΕΣ ΕΠΙΣΚΕΨΕΙΣ'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ