Sum of digits equal to a given number in PL/SQL

Prerequisite - PL/SQL introduction In PL/SQL code groups of commands are arranged within a block. A block group related declarations or statements. In declare part, we declare variables and between begin and end part, we perform the operations. Given a number and range and the task is to display all the numbers whose sum of digits is equal to the given number. Examples:

Input: x = 23 Output: 599 689 698 779 788 797 869 878 887 896 959 968 977 986 995 (Note: range->1 to 999) Input: x=12 Output: 39 48 57 66 75 84 93 (Note: range->1 to 100)

Approach is to take a number, find all the possible numbers in the given range and sum all the digits of number and if sum of digits is equal to the number, then print that number. Below it's implementation: SQL

--Take a number 
--sum all digit of the number 
--if sum digit is 25  
--then display all 
--Declaration block 
DECLARE 
    --declare N variable 
    n NUMBER; 
    --declare B variable 
    m NUMBER; 
    --declare S variable 
    --S initialize with 0 
    s NUMBER := 0; 
BEGIN 
    --Code block  
    --loop run until max 999 to min 1 
    FOR i IN 1..999 LOOP 
        n := i; 

        WHILE n > 0 LOOP 
            --logic of digit sum 
            m := MOD(n, 10); 

            s := s + m; 

            n := Trunc(n / 10); 
        END LOOP; 

        IF s = 25 THEN 
          --digit sum to be same with 25 
          --Display in result 
          dbms_output.Put_line(i 
                               ||' '); 
        END IF; 

        s := 0; 
    END LOOP; 
--end loop 
END; 
--end program 

Output:

799 
889 
898 
979 
988 
997