Создать рекурсивную функцию поиска i-го члена последовательности, заданной рекуррентной формулой A1=const1, A2=const2, (программа Паскаль)

Question

Создать рекурсивную функцию поиска i-го члена последовательности, заданной рекуррентной формулой A1=const1, A2=const2, Ai=3Ai-2-Ai-1. Вывести через пробел значения рекурсивной функции при значениях аргумента от 1 до 10 включительно

Answer 1

program proc_2;
function A (i: Integer): Integer;
begin
   if i=1 then A:=1 else
    if i=2 then A:=3 else А:=3*A(i-2)-A(i-1)
end;
  var i: Integer;
begin
   for i:=1 to 10 do Write (A(i),' ');
   Readln
end.