Lecture d'un polynôme

On écrit une procédure lirepoly qui permet de saisir un polynôme P au clavier. (Remarque : un polynôme de degré n doit vérifier ).

program poly;

const max = 100;

type polynome = record
                   degre : integer;
                   coef : array[0..max] of real;
                end;

var F : polynome;

procedure saisie(var P : polynome);
   var i : integer;

   begin
       repeat
            writeln('Quel est le degre du polynome?');
            readln(P.degre);
       until (P.degre>=0) and (P.degre<=max);

       repeat 
            writeln('entrez le coefficient a[',P.degre:2,']=');
            readln(P.coef[P.degre]);
       until (P.coef[P.degre]<>0);

       for i:=P.degre-1 downto 0 do
           begin
               writeln('entrez le coefficient a[',i:2,']=');
               readln(P.coef[i]);
           end;

end;
 
begin 
    writeln('entrez un polynome'); 
    saisie(F); 
end.