Сколько способов покраски деревьев есть, если никакие 2 соседних дерева нельзя красить в одинаковый цвет - Pascal ABC

Формулировка задачи:

Задача №2

Садовник посадил N деревьев в один ряд. После посадки деревьев садовнику нужно их покрасить. В его распоряжении есть краска трех цветов:белая, синяя и оранжевая.Сколько способов покраски деревьев есть у него, если никакие два соседних дерева нельзя красить в одинаковый цвет. Входные данные. В единственной строке входного файла INPUT.TXT Записанно одно натуральное число-количество деревьев N(1<=N<=50) Выходные данные В единственную строку выходного файла OUTPUT.TXT нужно вывести одно число-количество способов покраски.

Решение задачи: «Сколько способов покраски деревьев есть, если никакие 2 соседних дерева нельзя красить в одинаковый цвет»

Листинг программы

var i,n:word;
    m:int64;
begin
reset(input, 'input.txt'); 
rewrite(output, 'output.txt');
read(n); m:=3;
for i:=2 to n do m:=m*2;
write(m);
end.

Объяснение кода листинга программы

В данном коде происходит чтение числа n из файла input.txt, затем вычисляется значение переменной m, которое равно произведению числа 3 на 2 в степени i, где i варьируется от 2 до n. Затем полученное значение m записывается в файл output.txt.