{ File: polidef.pas }

{ Definizioni generali per polinomi di grado N
  N.B. N viene lasciata da specificare nel file che usa queste definizioni. }

type
  Index     = 0..N;
  Polinomio = array [index] of integer;


  procedure LeggiPolinomio (var p: Polinomio);
  var
    i : Index;
  begin
    for i := 0 to N do
    begin
      write('coefficiente di grado ', i : 2, ' = ');
      readln(p[i]);
    end;
    writeln('fine lettura polinomio');
  end; { LeggiPolinomio }


  procedure ScriviPolinomio (p: Polinomio);
  var
    i : Index;
  begin
    for i := 0 to N do
    begin
      write('coefficiente di grado', i : 2, ' = ');
      writeln(p[i] : 2);
    end;
  end; { ScriviPolinomio }