Área y perímetro de un círculo 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 el radio de un círculo y la tarea es encontrar el área y el perímetro del círculo.
Ejemplos:

Input: 3
Output: Area = 28.26
        Perimeter = 18.84

Input: 7
Output: Area = 153.86
        Perimeter = 43.96

Fórmula para el área y el perímetro del círculo:
Área:

pi * radius * radius 

Perímetro:

2 * pi * radius

donde pi = 3.14

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

--Find the area and perimeter of circle
DECLARE 
  
    -- Variables to store area and perimeter
    area   NUMBER(6, 2)  ;  
    perimeter   NUMBER(6, 2)  ; 
      
    --Assigning the value of radius 
    radius NUMBER(1) := 3; 
      
    --Constant value of  PI 
    pi CONSTANT NUMBER(3, 2) := 3.14; 
      
BEGIN 
  
        --Formula for area and perimeter of a circle 
        area := pi * radius * radius; 
        perimeter := 2 * pi * radius;
        dbms_output.Put_line('Area = ' || area); 
        dbms_output.Put_line(' Perimeter = ' || perimeter); 
  
END; 

Producción:

Area = 28.26
Perimeter = 18.84