DECLARE
TYPE T_tabelaNatpisa IS TABLE OF VARCHAR(40) INDEX BY BINARY_INTEGER;
brojac INTEGER:=0;
in_char CHAR;
indikator BOOLEAN;
resenje VARCHAR(20):='';
duzina INTEGER;
tabela T_tabelaNatpisa;
i BINARY_INTEGER;
BEGIN
tabela(1):='Structured Query Language';
tabela(2):=' eXtensible Markup Language';
tabela(3):='eXtensible Markup Language';
tabela(4):='Hyper TEXT MarKup Language';
i:=tabela.first;
WHILE i<=tabela.last LOOP
  resenje:=getAkronim(tabela(i));
  DBMS_OUTPUT.PUT_line(tabela(i) || ' ==  ' || resenje);
  i:=tabela.next(i);
END LOOP;
END;