// IRG 2020 PROCEDURE By Boussaid Mustafa
// APC SALI 2020
PROCEDURE irg_2020(i is currency)

cyIrgn is currency
p is currency = IntegerPart((IntegerPart(i))/10)*10

SWITCH i
CASE < 30000: cyIrgn = 0
CASE 30000 TO 35000: cyIrgn = (p - 30000) * 0.8
CASE 35000 TO 120000: cyIrgn = 2500 + ((p - 30000) / 10) * 3
OTHER CASE: cyIrgn = 29500 + ((p - 120000) / 10) * 3.5
END

RESULT IntegerPart(cyIrgn)