Esceptotraktado en Paskalo kaj ADA

   
MARKO  666; {mishalto}         | WITH INTEGER_IO, tabeloj;
VAR    n, x, ind: entjera;     | USE INTEGER_IO, tabeloj; -- ktp ...
                               |
{............................} | -------------------------------------
                               |
n:=3;   {ni toleros 3 erarojn} | FOR n IN 1..3 LOOP
RIPETU                         |   DECLARE x:INTEGER; BEGIN
   SE n=0 TIAM AL 666;         |     GET(x);
   leguLin(x);  n:=n-1;        |     p(sercxo(w,x)-1);   -- eblas escepto
   ind:=serĉo(w,x);            |     EXIT; -- elirejo: escepto ne okazis
   SE ind=fiasko TIAM          |   EXCEPTION        -- esceptotraktilo:
      skribuLin('bv reklavi'); |     WHEN sercxoeraro =>
ĜIS ind<>fiasko;               |        IF n=3 THEN GOTO halt;
                               |        END IF;
p(ind-1);    {uzo de ind}      |        PUT("bv reklavi");
                               |   END; -- fino de bloko kaj de E.-traktilo
                               | END LOOP; -- fino de la iteracikorpo