Нуждаюсь в совете и поддержке. Процедуры и функции. Прикрепленный файл. Делфи 7.

[Fatalita]

Номер 23. Помогите. Как поступить с n. И вообще(

Текст: Даны целые натуральные числа a, c, m. Получить f(m) , где
f(n)={n если 0<=n<=9
{g(n)f(n-1-g(n))+n в ост. случаях

Здесь g(n)- остаток от целочисленного деления a(n+c) на 10. Программа должна включать в себя рекурсивную процедуру (функцию) вычисления f(n).

[denisbrain]

перепиши в нормальный текст !

Function g(a,c):integer;
begin
  result:=(a+c) mod 10;
end;