Άσκηση : συγγραφή διαδικασίας

Γράψτε διαδικασία που δέχεται ως παράμετρο ένα θετικό
ακέραιο Ν και υπολογίζει :
* το πλήθος των πολλαπλασίων του 6,
* το πλήθος των αριθμών που δεν είναι πολλαπλάσια του
  5,
στο ακέραιο διάστημα [1, Ν].

Λύση

      ΔΙΑΔΙΚΑΣΙΑ Υπολ(Ν, φ1, φ2)
      ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ:  φ1, φ2, Ν, λ
      ΑΡΧΗ
             φ1 <-- 0
             φ2 <-- 0
             ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ Ν
                  ΑΝ λ MOD 6 = 0 ΤΟΤΕ
                       φ1 <-- φ1+1
                  ΤΕΛΟΣ_ΑΝ
                  ΑΝ λ MOD 5 < >  0 ΤΟΤΕ
                       φ2 <-- φ2+1
                  ΤΕΛΟΣ_ΑΝ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ