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