GCD de dos números 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.

Dados dos números y la tarea es encontrar el valor GCD (Divisor Común Máximo) o HCF (Divisor Común Máximo) de los números.
Ejemplos:

Input:  num1 = 4, num2 = 6
Output: gcd of (num1, num2) = 2

Input: num1 = 8, num2 = 48
Output: gcd of (num1, num2) = 8

El enfoque es tomar dos números y encontrar su valor GCD usando el algoritmo euclidiano .

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

DECLARE 
  
    -- declare variable num1, num2 and t 
    -- and these three variables datatype are integer  
    num1 INTEGER; 
    num2 INTEGER; 
    t    INTEGER; 
BEGIN 
    num1 := 8; 
  
    num2 := 48; 
  
    WHILE MOD(num2, num1) != 0 LOOP 
        t := MOD(num2, num1); 
  
        num2 := num1; 
  
        num1 := t; 
    END LOOP; 
  
    dbms_output.Put_line('GCD of ' 
                         ||num1 
                         ||' and ' 
                         ||num2 
                         ||' is ' 
                         ||num1); 
END; 
  
-- Program End 

Producción :

GCD of 8 and 48 is 8