ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 15

Αλγόριθμος Εταιρία   
Συνολικός_φόρος ← 0  
 Σύνολικές_καθαρές_αποδοχές ← 0   
Για i από 1 μέχρι 30  
   Διάβασε όνομα ! ερώτημα Α1 
    Αρχή_επανάληψης 
      Διάβασε μηνιαίες_αποδοχές
     Μέχρις_ότου (μηνιαίες_αποδοχές >= 0) και (μηνιαίες_αποδοχές <= 3000)
     Αν (μηνιαίες_αποδοχές <= 700) τότε ! ερώτημα Α2

      φόρος ← 0     Αλλιώς_Αν (μηνιαίες_αποδοχές <= 1000) τότε

      φόρος ← 0 + (μηνιαίες_αποδοχές - 700) * 0.15 
    Αλλιώς_Αν (μηνιαίες_αποδοχές <= 1700) τότε

      φόρος ← 0 + 0.15 * 300 + (μηνιαίες_αποδοχές - 1000) * 0.30 
    Αλλιώς       φόρος ← 0 + 0.15 * 300 + 0.30 * 700 + (μηνιαίες_αποδοχές - 1700) * 0.40     
   Τέλος_αν    
 καθαρές_αποδοχές ← μηνιαίες_αποδοχές - φόρος
     Εμφάνισε όνομα, μηνιαίες_αποδοχές, φόρος, καθαρές_αποδοχές ! ερώτημα Α3 
    Συνολικός_φόρος ← Συνολικός_φόρος + φόρος ! ερώτημα Β1
     Σύνολικές_καθαρές_αποδοχές ← Σύνολικές_καθαρές_αποδοχές + καθαρές_αποδοχές ! ερώτημα Β2   
Τέλος_επανάληψης   
Εμφάνισε Συνολικός_φόρος, Σύνολικές_καθαρές_αποδοχές
 Τέλος Εταιρία