ΠΡΟΓΡΑΜΜΑ ΦΥΛ_26_ΑΚ_14
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: τ1, τ2, Συνολικά_έσοδα
  ΑΚΕΡΑΙΕΣ: απ1, απ2, Πλ, ΑΡ, Πλ_δεν_εξυπηρετήθηκαν
ΑΡΧΗ
                                                                 !  Ερώτημα Γ2.α
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε το πλήθος κομματιών από το πρώτο προϊόν στην αποθήκη'
    ΔΙΑΒΑΣΕ απ1
  ΜΕΧΡΙΣ_ΟΤΟΥ απ1 > 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε το πλήθος κομματιών από το δεύτερο προϊόν στην αποθήκη'
    ΔΙΑΒΑΣΕ απ2
  ΜΕΧΡΙΣ_ΟΤΟΥ απ2 > 0
                                                                  ! Ερώτημα Γ2.β
  ΓΡΑΨΕ 'Δώσε την τιμή για το πρώτο προϊόν και την τιμή για το δεύτερο προϊόν'
  ΔΙΑΒΑΣΕ τ1, τ2
  Πλ <- 0

  Συνολικά_έσοδα <- 0
                                                                    ! Ερώτημα Γ3
 ΟΣΟ (απ1 > 0 Η απ2 > 0) ΚΑΙ Πλ_δεν_εξυπηρετήθηκαν <= 20/100*Πλ
    ΓΡΑΨΕ 'Δώσε κωδικό, 1 για το πρώτο προϊόν ή 2 για το δεύτερο προϊόν
    ΔΙΑΒΑΣΕ ΑΡ
    ΑΝ ΑΡ = 1 ΚΑΙ απ1 > 0 ΤΟΤΕ
      απ1 <- απ1 - 1
      Πλ <- Πλ + 1
      Συνολικά_έσοδα <-  τ1
    ΑΛΛΙΩΣ_ΑΝ ΑΡ = 2 ΚΑΙ απ2 > 0 ΤΟΤΕ
      απ2 <- απ2 - 1
      Πλ <- Πλ + 1
                                                                  !  Ερώτημα Γ4.
      Συνολικά_έσοδα <- τ2
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Δεν μπορείτε να εξυπηρετηθείτε'
      Πλ_δεν_εξυπηρετήθηκαν <- Πλ_δεν_εξυπηρετήθηκαν + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Συνολικά έσοδα: ', Συνολικά_έσοδα
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ