Const
 Nmax=9; {Maximal power}

Var
 A:Array[0..Nmax] of Real;
 B:Array[0..2*Nmax] of Real;
 N,i,j:Byte;

Begin
 Repeat
  Write('Polynomial power: ');
  Readln(N);
  if N>Nmax then Writeln('Power must be <',Nmax+1);
 Until N<=Nmax;
 Writeln('Initial polynomial coefficients:');
 for i:=N downto 0 do
  begin
   write('x^',i,' coefficient = ');
   readln(A[i]);
  end;
 for i:=0 to 2*N do B[i]:=0;
 for i:=0 to N do
  for j:=0 to N do
   B[i+j]:=B[i+j]+A[i]*A[j];
 Writeln('Final polynomial coefficients:');
 for i:=2*N downto 0 do
  writeln('x^',i,' coefficient = ',B[i]:0:9);
 Readln
End.