/* Funció llegirsn. Demana a l'usuari que introdueixi un carącter que ha de ser S, s, N, o n. Si l'usuari introdueix s o n, el programa transforma el carącter en S o N. */

funció llegirsn() retorna carącter és
 var c: carącter;
 fivar
 fer
  llegir(c);
 mentre (c != 'S' i c != 's' i c != 'N' i c != 'n');
 si c=='s' llavors c='S'; fisi
 si c=='n' llavors c='N'; fisi
 retorna c;
fifunció

/* Com que és una funció, c és una variable local, que es declara en l'apartat var..fivar, i desapareix en acabar la funció. Per aixó fem el retorna c, aixķ el valor de la c torna al programa principal i es recollit per la variable que fa la crida a la funció: */

....
siono = llegirsn();
....

/* Ara siono ha recollit el valor de c */