Suma del primer y último dígito de un número en PL/SQL

Requisito previo : introducción
a PL/SQL En el código PL/SQL, los grupos de comandos se organizan dentro de un bloque. Un grupo de bloques relacionado con declaraciones o sentencias. En declare part, declaramos variables y entre start y end part, realizamos las operaciones.

Dado un número n, la tarea es encontrar la suma de su primer y último dígito.
Ejemplos:

Input: 14598.
Output: Sum of the first and last digit is 9.

Input: 987456.
Output: Sum of the first and last digit is 15.

El enfoque es usar la función substr() y almacenar el primer y último dígito y luego imprimir su suma.

A continuación se muestra la implementación requerida:

DECLARE 
    -- declare variables are A, B,  C and S
    -- these are same datatype integer
    a INTEGER := 14598; 
    b INTEGER := 0; 
    C INTEGER := 0; 
    s INTEGER; 
BEGIN 
    IF a > 9 THEN 
      c := Substr(a, 1, 1); 
  
      b := Substr(a, Length(a), 1); 
  
      s := b + c; 
    ELSE 
      s := a; 
    END IF; 
  
    dbms_output.Put_line('Sum of the first and last digit is ' 
                         ||s); 
END; 
-- Program End 

Producción:

Sum of the first and last digit is 9