set serveroutput on
 
declare
  p persoana := persoana('Pop','Ion','1891217120666');
  r char(10);
begin
  dbms_output.enable;
  dbms_output.put_line(p.afisare());
  dbms_output.put_line('Nume: ' || p.nume);
  dbms_output.put_line('Prenume: ' || p.prenume);
  if p.validcnp() then r:='Corect'; else r:='Eronat'; end if;
  dbms_output.put_line('CNP: ' || p.cnp || ' - ' || r);
  dbms_output.put_line('Varsta: ' || to_char(p.virsta(),'999.99'));
  dbms_output.put_line('Data nasterii: ' || to_char(p.datan()));
end;