Recurring Deposite Calculation

--- Recurring Deposite scheme

DECLARE
/* Recurring Deposit Scheme */
tenure NUMBER:=12;
rate NUMBER(10,8):=10;
amount NUMBER(20,8):=3000;
tot_amount NUMBER(20,8):=0;
tot_prin NUMBER(20,8):=0;
tot_int NUMBER(20,8):=0;
ints NUMBER(20,2);
l_sum NUMBER(20,8);
l_rate NUMBER(10,8);
c_int NUMBER(20,8):=0;
BEGIN

FOR i in 1..tenure
LOOP
l_sum :=amount*power((1+(rate/1200)),i);
ints :=l_sum-amount;
dbms_output.put_line(' '||i||' '||amount||' '||ints||' '||l_sum);
tot_amount:=tot_amount+l_sum;
END LOOP;
tot_prin :=amount*tenure;
tot_int :=tot_amount-tot_prin;
c_int :=amount*tenure*(tenure/2)*(rate/1200);
dbms_output.put_line('Total Mat. Amount '||tot_amount);
dbms_output.put_line('Total Principal '||tot_prin);
dbms_output.put_line('Total Interest '||tot_int);
dbms_output.put_line('Cross Check Interest '||c_int);
END;