Ciag rekurencyjnie i iteracyjnie

Witam, mam do zrealizowania takie oto zadanie:
Dla ciag przyjmuje nastepujace wartosci dla a(0)=3 dla a(i)=a(i-1)-3;
musze napisac 2 funkcje iteracyjna i rekurencyjna.

function ciag(i: integer): integer;
begin
  if i=0 then
    ciag:=3
  else 
    ciag:=ciag(i-1)-3;
end;

To moje rozwiazanie rekurencyjne a na iteracyjne nie mam pomysłu, to co napisałem źle działa
Mój kod

function ciagi(i: integer): integer
var
  n: integer;
begin
  i := 0;
  ciagr := 3;

  for i := 1 to n do
  begin
    ciagi := ciagi(i - 1) - 3;
  end;
end;

Proszę o pomoc.

Proszę, oto pseudo kod:

def rek(i):
	if i == 0:
		return 3
	else:
		return rek(i - 1) - 3

def itera(i):
	temp=3
	for j in range(1, i + 1):
		temp=temp-3
	return temp
	
print rek(7),itera(7)

function ciagi(n:Integer):Integer
begin
  ciagi:=3-n*3;
end;

To już jest bez rekurencji, czy iteracji ;)