program Array6;
var
  a: array of integer;
  i, n, j: integer;
begin
  WriteLn ('N = ');
  ReadLn (n);
  SetLength(a, n);
  WriteLn('A = ');
  ReadLn (a[0]);
  WriteLn ('B = ');
  ReadLn (a[1]);
  Write (a[0], ' ', a[1], ' ');
  for i := 2 to n - 1 do
  begin
    a[i] := 0;
    for j := 0 to i - 1 do
      Inc(a[i], a[j]);
    Write (a[i], ' ');
  end;
  WriteLn;
  ReadLn;
end.