Как сделать таблицу из 35 строк, при этом каждое значение в 2 раза больше предыдущего( 1 строка-1 2 строка-2 3 строка-4) с формулы

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=Int64(1); Writeln(n);
  for var i:=1 to 35 do begin n*=2; Writeln(n) end
end.

Результат:
1
2
4
8
16
32
64
128
256
512
1024
2048
4096
8192
16384
32768
65536
131072
262144
524288
1048576
2097152
4194304
8388608
16777216
33554432
67108864
134217728
268435456
536870912
1073741824
2147483648
4294967296
8589934592
17179869184
34359738368

Планета Земля кожного року проходить один і той самий шлях навколо Сонця. Кожного року відбувається зміна лір року: зима, весна, літо, осінь, а потім знову зима. Кожну добу день змінюється ніччю, а ніч - днем.

Циклічно змінюються фази Місяця: спочатку Місяць молодий, потім він росте, потім досягає повного Місяця, потім починає зменшуватися, і потім все починається спочатку.

Циклічні процеси відбуваються і в вашому житті. Кожного робочого дня ви встаєте, прибираєте постіль, робите фіззарядку, вмиваєтеся, снідаєте, складаєте портфель і йдете до школи. Кожного тижня уроки в школі відбуваються за одним і тим же самим порядком, який визначається розкладом, хоча, звичайно ж, можуть бути й непередбачені ситуації.

Водій веде автобус тю маршруту, кожного разу проїжджаючи одні й ті самі зупинки в однаковому порядку. Світлофор на перехресті налаштований так, що він через однакові проміжки часу запалює зелене світло, потім жовте, потім червоне, потім знову жовте, потім знову зелене і так далі.

A)
program a1;
uses crt;
var m:array[1..40]of integer;
i:byte;
a,ka:integer;
begin
clrscr;
a:=0;ka:=0;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 if m[i] mod 2<>0 then
 begin
 ka:=ka+1;
 a:=a+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Среднее арифметическое нечетных чисел=',a/ka);
end.
b)
program b1;
uses crt;
var m:array[1..40]of integer;
i:byte;
b:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
 if m[i]<=10 then b:=b+m[i];
 end;
 end;
for i:=1 to 40 do  if i=1 then write('M[',m[i],',')   else  if i=40 then writeln(m[i],']')   else  write(m[i],',');
writeln('Сумма чисел не превышающих 10=',b);
end.
в)
program v1;
uses crt;
var m:array[1..40]of integer;
i:byte;
c:integer;
begin
clrscr;
for i:=1 to 40 do
begin
 m[i]:=random(21);
 begin
if m[i] mod 3=0 then c:=c+m[i];
 end;
 end;
 for i:=1 to 40 do
 if i=1 then write('M[',m[i],',')
 else
 if i=40 then writeln(m[i],']')
 else
write(m[i],',');
writeln('Сумма чисел кратных 3 = ',c);
end.