Задачи на процедуры и функции в Delphi

[brokenhead]

1. Для вещественных чисел s, t, r вычислить f(s,-2t,s+r)+f(r,3s,s-t), где f(a,b,c)= (2a-b-sin(c))/(b-abs(c)) - функция.
2. Используя процедуру для котангенса, вычислить значение выражения:
z=(cotan(x+a)-cotan(x+b))/cotan(x-a)
3.Рекурсивная функция f с натуральными аргументами и значениями определена так: f(0)=0, f(1)=1, f(2n)=f(n), f(2n+1)=f(n)+f(n+1). Вычислить f по заданному n.

помогите люди добрые, второй день голову ломаю... строки с факториалом осилил с горем пополам. но тут зубы поломал.