Розв’язок задачі з Абрамова №139г

Всі умови | Умова: Дано натуральне число n. Отримати послідовність b1, ..., bn, де при i = 1, 2, ..., n значення bi рівне: (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №139)

Розв'язок на Pascal

program pr139_4;
var
  i, n , b : integer;
begin
  write('n = '); readln(n);
  
  b := 2;
  for i := 1 to n do
  begin
    b := b * 2;
    writeln('b' , i , ' = ' , b);
  end;
  
  readln;
end.