#14 PRINT SIMPLE INTEREST

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

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