program testpolo; {tetsta la unit poliobj.pas, che descrive un polinomio come un oggetto} uses poliobj; var p:pol; g:range; y:real; begin {legge i coefficienti dall'utente} writeln('Dammi i coefficienti del polinomio.'); p.leggipol; {calcola il grado del polinomio} p.grado(g); writeln('Il polinomio ha grado ', g); {calcola il valore del polinomio} p.eval; end.