[Паскаль] Коэффициенты многочлена

[Victorina]

вот бьюсь уже 3 недели не могу понять алгоритм

(a+1) требуется возвести в целую степень N.Программа должна записать в файл OUTPUT.TXT N+1 число (через пробел) - коэффициенты найденного многочлена в порядке уменьшения степени а.Исходные данные в файле INPUT.TXT,в единственной строке которого записано число N.

сам код не нужен хотя бы алгоритм?

[LeBron]

Воспользуйтесь треугольником Паскаля.

[ОДИНОЧЕСТВО В СЕТИ]

var
  a:array[1..100,1..100] of Integer;
  i,j:Integer;
  n:Integer;
  f:TextFile;
begin
  AssignFile(f,'input.in');
  {$I+}
  Reset(f);
  {$I-}
  Read(f,n);
  CloseFile(f);
  for i:=1 to n+1  do
    for j:=1 to n+1 do
      a[i,j]:=0;
  for j:=1 to n+1 do
    a[j,1]:=1;
  for i:=2 to n+1 do
    for j:=2 to n+1 do
      a[i,j]:=a[i-1,j-1]+a[i-1,j];
  AssignFile(f,'output.out');
  {$I+}
  Rewrite(f);
  {$I-}
    i:=n+1;
  for j:=1 to n+1 do
    write(f,a[i,j]:6);
  CloseFile(f);
end.