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.