! ----------------------------------------
! Το πρόγραμμα θα υπολογίζει το Φόρο Προστιθεμένης Αξίας (ΦΠΑ) του προϊόντος
! ----------------------------------------

ΠΡΟΓΡΑΜΜΑ Υπολογισμός_ΦΠΑ

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Τιμή_προιόντος, Φόρος_Προστιθέμενης_Αξίας, ΦΠΑ_1, ΦΠΑ_2, ΦΠΑ

ΑΡΧΗ

  ΓΡΑΨΕ 'Δώσε την τιμή του προιόντος:'
  ΔΙΑΒΑΣΕ Τιμή_προιόντος

  ΓΡΑΨΕ 'Δώσε το ποσοστό του ΦΠΑ του προιόντος [9/19]'
  ΔΙΑΒΑΣΕ Φόρος_Προστιθέμενης_Αξίας

  ΑΝ Φόρος_Προστιθέμενης_Αξίας = 9 ΤΟΤΕ
    ΦΠΑ_1 <-- (Τιμή_προιόντος * 9) / 100
    ΓΡΑΨΕ 'Ο ΦΠΑ του προιόντος είναι',ΦΠΑ_1,'Ευρώ'
  ΑΛΛΙΩΣ
    ΑΝ Φόρος_Προστιθέμενης_Αξίας = 19 ΤΟΤΕ
      ΦΠΑ_2 <-- (Τιμή_προιόντος * 19) / 100
      ΓΡΑΨΕ 'Ο ΦΠΑ του προιόντος είναι',ΦΠΑ_2,'Ευρώ'
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Το ποσοστό του ΦΠΑ πρέπει να είναι 9 ή 19 τις εκατό'
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ   Υπολογισμός_ΦΠΑ