procedimiento 28/12

create
or replace FUNCTION parimpar (pnumero int)
return varchar2 /*tipo de dato que la funcion va a entregar*/
is
vtexto
varchar2(5);
begin
if mod(pnumero,2)= 0 then
vtexto
:='PAR';
else
vtexto
:='IMPAR'
end if;
return vtexto;
end parimpar;
　
select
parimpar (4) from dual