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.