Я пробовал следующий код по-разному, например, убирая while или if, но когда я соединял их вместе (if и while), я всегда получал ошибку в конце ...

undefine numero
set serveroutput on
accept numero prompt 'Type # between 100 and 999: '
declare
   i number:=1;
   a char(25);
   b char(1);
   c varchar2(10);
   d number;
begin
   c := №
   d := length(c);
   b := substr(c, i, 1);
   while i