*potęgowanie:
Procedure Pow( value_ : real ; power_ : integer );
 Begin
   out := value_;
   For j := 1 to power_ -1  do out := out * value_;
 End;


*Szukanie pierwiastków dla wielominu:
 While ( break = false ) and ( pierwiastek < 2.5 ) Do
  Begin
     temp := n[ 0 ]; { dodajemy wyraz wolny }
     For i := 1 to stopien Do
       Begin
         Pow( pierwiastek * wspolczynnik , i );
         temp := temp + ( n[ i ] * out );
       End;
     {If ( Abs( temp ) = 0 ) Then}
     WriteLn( 'W( ' , pierwiastek * wspolczynnik:2:2 , ' ) = ' , temp : 6:2 );
     If ( wspolczynnik = 1 ) Then pierwiastek := pierwiastek + 0.05;
     wspolczynnik := wspolczynnik * -1;

  End;


*Liczby przypisane do tablicy( n[ 0 .. 9]) to współczynniki tego wielomianu.