/* Funció llegiropcio. Li passem el mínim i el màxim, i retorna un valor introduït per l'usuari, que ha d'estar entre aquests valors mínim i màxim */


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

/* Fixeu-vos que aqui fem retorna. La variable opciol és local a la funció, i per tant, en acabar aquesta, desapareix. Llavors cal retornar el seu valor al programa principal. Ho fem amb la sentència retorna. ¿I com recollim aquest valor des de fora?. Fent la crida a la funció de la següent manera:  */

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

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