Const
  Nmax = 50;
Type
  Vettore = Array[1..Nmax] of Real;

	Vedi, Inserimento
	Somma?, Stessa somma?, Media aritmetica?, Minimo?, Massimo?, Minimo e massimo
	Somme, Copia, Uguali?
	Presente?, Posizione?, Prima posizione?, Quante presenze?, Quanti numeri pari?

Const
  Nmax = 50;
Type
  STR15 = String[15];
  STR25 = String[25];
  Persona = Record
    Cognome,
    Nome:      STR15;
    Indirizzo: STR25;
    Telefono:  STR15;
  End;
  Rubrica = Array[1..Nmax] of Persona;

	Svuota, Leggi, Vedi una persona
	Svuota, Vedi una rubrica
	Inserimento, Modifica, Eliminazione, Consultazione di una persona in una rubrica
	Intersezione ("persone comuni"), Unione ("fusione"), Differenza ("confronto") di due rubriche in una terza