Qbasic to print simple interest using 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