Многочлены, составить многочлен (x-a1)(x-a2)(x-a3)(x-a4)(x-a5)(x-a0) Опции

[Рустам]

Даны числа a₀ a₁ a₂ a₃ a₄ a₅
Составить многочлен шестой степени (x-a₀)(x-a₁)(x-a₂)(x-a₃)(x-a₄)(x-a₅)

Добавлено через 1 мин.
думал много над ней.. передо мной была сложность одна.. .когда раскрываешь скобки образуются всевозможные комбинации с двумя а потом с тремя , четырьми... для комбинаций с двумя а придумал...а когда идут 3 , 4.. че то додуматься не могу... помогите пожалуйста

[Рустам]

Извини Lapp немного застрял с организацией цикла

const
  {a: tPoly= (3,1,0,0,0,0,0);   {2-x}
  {b: tPoly= (3,1,0,0,0,0,0);    {2+x}

 a: array [1..6] of tPoly=
 (
 (2,1,0,0,0,0,0),
 (1,1,0,0,0,0,0),
 (3,1,0,0,0,0,0),
 (4,1,0,0,0,0,0),
 (5,1,0,0,0,0,0),
 (1,1,0,0,0,0,0)
 ); 


var
  c: tPoly;
  i: integer;

begin
  clrscr;  
for i:=1 to 6 do   
begin
  Product(c,a[i],c);
  WriteLn('('+Show(a)+')'+'('+Show(b)+')='+Show©);
end;

  ReadLn
end.

скажи правильно ли я делаю. чтобы перемножить 6 множителей надо каждый множитель умножать на результат
Product(c,a[i],c); но для начала надо присвоить с как бы единицу то есть c:=(1,0,0,0,0,0,0) но такой вариант че то паскалю не нравится?