SET SERVEROUTPUT ON;

DECLARE
   name VARCHAR2(35);
   birth_date DATE;
   current_date DATE;
   age NUMBER(2);
BEGIN
   name := 'George W. Bush';
   birth_date := TO_DATE('7/6/1946','MM/DD/YYYY');
   current_date := SYSDATE;
   age := TRUNC((current_date - birth_date)/365.25, 0);

   -- We're calling another procedure:
   DBMS_OUTPUT.PUT_LINE('Name: '||name ||' Age: '|| age);

   -- insert into agetable values(name, age);
   
END;
/