DECLARE FUNCTION SI (P ,T ,R )
CLS
INPUT "ENTER PRINCIPAL "; P
INPUT "ENTER RATE "; R
INPUT" ENTER TIME ";T
PRINT "SIMPLE INTEREST ";SI (P ,T ,R )
END

FUNCTION SI (P , T ,R )
I= P *T *R/100
SI = I
END FUNCTION