Придумайте рекуррентное соотношение, задающее последовательностей последующего вида:

Program gt;
var n,q,i:longint;
begin
read(n);
read(q);
q-начальное значение числа а в твоем примере q=2
n-в общем случае;  n- количество последовательностей
write(q,' ');
for i:=2  to n do
begin
q:=q*2;
write(q,' ');
end;
end.
А если придумать то так как каждое число одинаково привидушему числу умноженному на 2 то просто возмем любое число и будем помножат ее на 2
пример:
2 4 6 8 ...
3 6 12 24..
4 8 16 32 ...