23.2.1

program nl_23_2_1; //Задаём имя программы

var a1: int64; n, i: integer; //Объявляем переменные целого типа

begin //Начало тела программы

a1:=2; //Присваиваем значение 1 члена последовательности (по усл. равен 2)

writeln('Введите количество членов (максимум 41) последовательности, которое необходимо вывести:');

readln(n); //Ввод количества членов последовательости

for i:=1 to n do begin //инициализируем цикл с параметром

writeln('Член ', i, ': ', a1); //Выводим i-тый член последовательности (начиная с 0)

a1:=3*a1; //Вычисляем следующий i+1 член последовательности

end;

end. //Конец тела программы