-- Simple test program for Polynomials package
with Polynomials; use Polynomials;
procedure Polynomials_Test is
P1, P2, P3, P4: Polynomial;
begin
Read_Polynomial( P1 );
Read_Polynomial( P2 );
P3 := P1 * P2;
P4 := P1 + P2;
Print_Polynomial( P1 );
Print_Polynomial( P2 );
Print_Polynomial( P3 );
Print_Polynomial( P4 );
end Polynomials_Test;