Program to print simple interest using FUNCTION

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

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