/* Acció llegiropcio. Li passem el mínim i el màxim i, per referència la variable que ha de recollir el valor, introduït per l'usuari, que ha d'estar entre aquests valors mínim i màxim */


acció llegiropcio(nummin,nummax: natural, var opciol: natural) és
 fer
  opciol = 0;
  llegir(opciol); 
 mentre (opciol < nummin o opciol > nummax);
fifunció

/* Fixeu-vos que no hi ha cap retorna. No cal, ja que la variable opcio agafa per referència la mateixa posició de memòria que la variable que passem des del programa principal, i quan fem llegir(opciol) veritablement estem llegint la variable que hi ha al programa principal (opcio). */


/* La crida des del programa principal seria: */

...
opcio=0;
llegiropcio(1,5,opcio);
...

/* i ara opcio ha recollit el valor de opciol */