Многочлены, составить многочлен (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.. че то додуматься не могу... помогите пожалуйста

[Рустам]

да я понял, просто пробовал различные варианты,разбирался так скажем..а код мне в принципе ясен и сама идея)) сейчас посмотрю ещё разик)

Добавлено через 11 мин.
Спасибо Большое за проделанную работу!!! Но единственное не совсем понятна эта работа со строками. Будьте добры объясните пожалуйста

for i:=n downto 0 do
    if Abs(p[i])>e then begin
      if p[i]<0 then s:=s+'-' else if (i<n)and not f then s:=s+'+';
      if (i=0)or(Abs(Abs(p[i])-1)>e) then begin
        Str(Abs(p[i]): 8: 2,t);
        while t[1]=' ' do Delete(t,1,1);
        while t[Length(t)]='0' do Delete(t,Length(t),1);
        if t[Length(t)]='.' then Delete(t,Length(t),1);
        s:=s+t
      end;