program testentry; {programma che testa la unit entryadt} uses entryadt; var x,y:entry; n:chiave; begin init(x,' ',0); writeln('Dammi un nome e un numero: '); leggientry(x,input,''); writeln; write('Dammi un nome: '); readln(n); init(y,n,0); if uguale(x,y) then writeln('Il numero e'' ',getnumber(x)) else writeln('Nome non listato.'); writeln; writeln('Ecco il contenuto dell''elenco: '); displayentry(x) end.