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.