DECLARE
 new_password VARCHAR2(20) := '123456ddd';
 old_password VARCHAR2(20) := '123454ddd';
  diff NUMBER:=0;
  l NUMBER;
 BEGIN
       IF length(new_password) < length(old_password) THEN
         l := length(new_password);
       ELSE
         l := length(old_password);
       END IF;
       FOR i IN 1..l LOOP
         IF substr(new_password,i,1) != substr(old_password,i,1) THEN
           diff := diff + 1;
         END IF;
       END LOOP;
       dbms_output.put_line(diff);
        IF diff < 3 THEN
         dbms_output.put_line( 'меньше 3-х одинаковых символа в на одной позиции ');
         ELSE    dbms_output.put_line( 'больше 3-х одинаковых символа в на одной позиции ');
       END IF;    
   END;