create trigger preson_insert_beffor 
before insert on preson
for each row
declare 
begin
  select 'p'||trim(to_char(preson_pid.nextval,'999'))into   pname:=:new.pname and psex:=:new.psex and tid:=:new.tid   and age:=:new.age from dual;
end;