Το Στέκι των Πληροφορικών

ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Γ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΑΠΟΘ[150], κ, πλ, Ι, ΚΑΤ, ΚΟΥΤΙΑ, ΠΡΩΤΟ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΠΟΣΟΣΤΟ
  ΛΟΓΙΚΕΣ: ΦΛΑΓΚ
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 150
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ ΑΠΟΘ[Ι] 
    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΟΘ[Ι] > 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  πλ <- 0
  κ <- 0
  ΦΛΑΓΚ <- ΨΕΥΔΗΣ
  ΔΙΑΒΑΣΕ ΚΑΤ
  ΟΣΟ ΚΑΤ <> 0 ΕΠΑΝΑΛΑΒΕ
    ΔΙΑΒΑΣΕ ΚΟΥΤΙΑ                               ! Διάβασμα επιθυμητής ποσότητας
    πλ <- πλ + 1                              ! Αύξηση συνολικού πλήθους πελατών
    ΑΝ ΑΠΟΘ[ΚΑΤ] = 0 ΤΟΤΕ                ! Έλεγχος αν το απόθεμα έχει μηδενιστεί
      ΓΡΑΨΕ 'ΔΕΝ ΥΠΑΡΧΕΙ ΑΠΟΘΕΜΑ'
    ΑΛΛΙΩΣ_ΑΝ ΑΠΟΘ[ΚΑΤ] >= ΚΟΥΤΙΑ ΤΟΤΕ
      ΑΠΟΘ[ΚΑΤ] <- ΑΠΟΘ[ΚΑΤ] - ΚΟΥΤΙΑ! Ο πελάτης αγοράζει όλη την ποσότητα που ζήτησε
      κ <- κ + 1
    ΑΛΛΙΩΣ
      ΑΠΟΘ[ΚΑΤ] <- 0                    ! Ο πελάτης αγοράζει ό,τι έχει απομείνει
    ΤΕΛΟΣ_ΑΝ
    ΑΝ ΑΠΟΘ[ΚΑΤ] = 0 ΚΑΙ ΦΛΑΓΚ = ΨΕΥΔΗΣ ΤΟΤΕ
      ΠΡΩΤΟ <- ΚΑΤ        ! Έλεγχος αν εξαντλήθηκε για πρώτη φορά κάποιο απόθεμα
      ΦΛΑΓΚ <- ΑΛΗΘΗΣ
    ΤΕΛΟΣ_ΑΝ
    ΔΙΑΒΑΣΕ ΚΑΤ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΝ ΦΛΑΓΚ = ΑΛΗΘΗΣ ΤΟΤΕ
    ΓΡΑΨΕ ΠΡΩΤΟ
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δεν εξαντλήθηκε απόθεμα σε κανένα υποκατάστημα'
  ΤΕΛΟΣ_ΑΝ

  ΠΟΣΟΣΤΟ <- (κ/πλ)*100      ! Υπολογισμός ποσοστού πλήρους εξυπηρέτησης πελατών
  ΓΡΑΨΕ ΠΟΣΟΣΤΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ