{Housing Community Codes and Amounts)
CC <- Clarendon Courts
SVG <- Sangre Grande Villa
PG <- Providence Garden
CCAMOUNT <- 10000.00
SVGAMOUNT <- 7500.00
PGAMOUNT <- 5500.00
DISPLAY "Enter Applicant's Name => "
INPUT appName
DISPLAY "Enter Applicant's Housing Community of Choice => "
INPUT comCode
DISPLAY "Enter Applicant's Gross Salary => "
INPUT gSalary
DISPLAY "Enter Applicant's Total Expenses => "
INPUT totalExpenses
DISPLAY "Enter Applicant's Total Loan Repayment => "
INPUT totalLoan
{Calculate relevant deductions}
IF (gSalary <= 5000.00) THEN
PAYE <- 0.0
ELSE
PAYE <- (gSalary * 0.08)
ENDIF
health <- 155.00
unionDues <- (gSalary * 0.02)
pension <- (gSalary * 0.15)
salaryDeduction <- (PAYE + health + union dues + pension)
netSalary <- ((gSalary - salaryDeduction)
totalRepayment <- (totalExpenses + totalLoan)
balance <- (netSalary - totalRepayment)
{Applicant's Qualification Status}
IF (comCode = CC AND netSalary > CCAMOUNT) THEN
qStatus <- "Qualified"
ENDIF
IF (comCode = SVG AND netSalary > SVGAMOUNT) THEN
qStatus <- "Qualified"
ENDIF
IF (comCode = PG AND netSalary > PGAMOUNT) THEN
qStatus <- "Qualified"
ENDIF
Otherwise
Applicant's status is assigned not qualified
{Applicant's Approval Status}
IF (balance >= (netSalary * 0.05)) THEN
aStatus <- "Approved"
DISPLAY "This Applicant is Qualified and Approved"
ELSE
DISPLAY "This Applicant is not Approved"
ENDIF
ENDIF