program main; var i: integer; b: array[10] of integer; c: array[10] of integer; begin b[0] := 1; c[0] := 1; writeln(b[0]); writeln(c[0]); for i:=1,9 do begin b[i] := b[i-1] + b[i-1]; c[i] := c[i-1] + 1; writeln(b[i]); writeln(c[i]) end end.