ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:εισο,υπολι,φορο
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το εισόδημά σου.'
ΔΙΑΒΑΣΕ εισο
ΜΕΧΡΙΣ_ΟΤΟΥ εισο>0
υπολι <-- εισο
ΑΝ υπολι>12000 τότε
υπολι <-- υπολι-12000
αν υπολι>0 και υπολι>18000 τοτε
φορο <-- φορο+4500
υπολι <-- υπολι-18000
αλλιώς
φορο <-- φορο+(υπολι*0.25)
υπολι <-- 0
ΤΕΛΟΣ_ΑΝ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
ΑΝ υπολι>0 τότε
ΑΝ υπολι>45000 τοτε
φορο <-- φορο+15750
υπολι <-- υπολι-45000
ΑΛΛΙΩΣ
φορο <-- φορο+(υπολι*0.35)
υπολι <-- 0
τέλος_αν
ΤΕΛΟΣ_ΑΝ
ΑΝ υπολι>0 τότε
φορο <-- φορο+(υπολι*0.40)
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!45000
ΓΡΑΨΕ '========================================================================='
ΓΡΑΨΕ 'Με το εισόδημά σου',εισο,'ευρώ φορολογήσε με',φορο,'ευρώ.'
ΓΡΑΨΕ 'Άρα σου μένουν',εισο-φορο,'ευρώ.'
ΓΡΑΨΕ 'Δηλαδή η φορολογική σου επιβάρυνση είναι',(φορο/εισο)*100,'%.'
ΓΡΑΨΕ '========================================================================='
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ