Q BASIC PROGRAM TO FIND SIMPLE INTEREST. FUNCTION

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

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