14.PRINT SIMPLE INTEREST .

DECLARE  FUNCTION  INTEREST(P,T,R)

CLS

INPUT “ENTER  PRINCIPAL”;P

INPUT “ENTER TIME”;T

INPUT “ENTER RATE”;R

PRINT “SIMPLE INTEREST=”;INTERESTG(P,T,R)

END

FUNCTION INTEREST(P,T,R)

SI=P*T*R/100

INTEREST=SI

END FUNCTION