Άσκηση : συγγραφή προγράμματος+συνάρτησης

Ένα μαγαζί ηλεκτρονικών ειδών παρέχει στους πελάτες του
τη δυνατότητα προμήθειας παιχνιδών για υπολογιστές (PC
games), χρεώνοντας το κάθε παιχνίδι με τον ακόλουθο
τρόπο: τα πρώτα 5 παιχνίδια κοστολογούνται με 10 ευρώ
και κάθε άλλο επιπλέον PC game κοστολογείται με 8
ευρώ.
Ι. Γράψτε συνάρτηση που δέχεται ως παράμετρο το
    πλήθος των PC games που θέλει να αγοράσει ένας
    πελάτης και υπολογίζει το συνολικό κόστος της αγοράς
    του.
ΙΙ. Γράψτε πρόγραμμα το οποίο, για καθένα από τους 23
     πελάτες που εκμεταλλεύτηκαν την προσφορά:
     * διαβάζει το πλήθος των PC games που αγόρασε,
     * καλώντας τη συνάρτηση που γράψατε στο Ι,
        υπολογίζει το κόστος της αγοράς του,
     * εμφανίζει το κόστος αυτό με κατάλληλα
        διαμορφωμένο μήνυμα.
    Το πρόγραμμα επιπρόσθετα υπολογίζει και εμφανίζει:
    * τη συνολική είσπραξη από την πώληση των PC games
       στους παραπάνω πελάτες,
    * πόσοι πελάτες ξόδεψαν περισσότερα από 80 ευρώ για
       την αγορά PC games.

Λύση

        ΠΡΟΓΡΑΜΜΑ ΜΑΓΑΖΙ
        ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ: κ, Φ, σ, Πληθ, Κοστ
        ΑΡΧΗ
             σ <-- 0
             Φ <-- 0
             ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 78
                    ΔΙΑΒΑΣΕ Πληθ
                    Κοστ <-- ΚΟΣΤΟΣ(Πληθ)
                    ΓΡΑΨΕ 'Κόστος πελάτη =', Κοστ
                    σ <-- σ+Κοστ
                    ΑΝ Κοστ > 80 ΤΟΤΕ
                         Φ <-- Φ+1
                    ΤΕΛΟΣ_ΑΝ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΓΡΑΨΕ 'Συνολική είσπραξη =', σ
             ΓΡΑΨΕ Φ, ' πελάτες ξόδεψαν > 80 ευρώ'
        ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


        ΣΥΝΑΡΤΗΣΗ ΚΟΣΤΟΣ(Πληθ) : ΑΚΕΡΑΙΑ
        ΜΕΤΑΒΛΗΤΕΣ
              ΑΚΕΡΑΙΕΣ: Πληθ
        ΑΡΧΗ
              ΑΝ Πληθ <= 5 ΤΟΤΕ
                         ΚΟΣΤΟΣ <-- Πληθ*10
              ΑΛΛΙΩΣ
                         ΚΟΣΤΟΣ <-- 5*10+(Πληθ-5)*8
              ΤΕΛΟΣ_ΑΝ
        ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ