Print simple interest using function

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

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