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

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.