Кто подскажет, как создать функцию

[Тагир68]

Хотел создать функцию по алгоритму , что то не получается - кто подскажет?
Формула с переменными (ДатаЗаключенияСделки, ЕжемесячныйПлатежТело, ЕжемесячныйПлатежНадбавка, СрокФинансирования, БазаДанныхПогашений – количество ячеек = кол-ву месяцев СрокФинансирования)
Разность дат в месяцах = ДатаЗаключениеСделки - ТекущаяДата (кол-во полных месяцев)
Долг = 0
N = 0
Цикл N = N+1 до (кол-во полных месяцев)
1. ДатаЗаключенияСделки + 1 месяц
2. Прибыль =0
3. Начисляем Долг = ЕжемесячныйПлатежТело + Долг
4. Отнимаем Погашение за месяц (из БазыДанныхПогашения)
5. Если Долг > Погашение за месяц (из БазыДанныхПогашения) - то
Долг = Долг - Погашение за месяц
Прибыль = Долг - Погашение за месяц , иначе
если (ЕжемесячныйПлатежТело + ЕжемесячныйПлатежНадбавка + Долг < Погашение за месяц )
- то
Прибыль = ЕжемесячныйПлатежНадбавка
Долг = ЕжемесячныйПлатежТело + ЕжемесячныйПлатежНадбавка + Долг - Погашение за месяц - иначе
Прибыль = Погашение за месяц - ЕжемесячныйПлатежТело - ЕжемесячныйПлатежНадбавка - Долг
Долг = 0)

Возвращаемся к шагу 1 (КонецЦикла)

Вывод - переменной Прибыли

[NetSpace]

по-моему, от вас хотят избавиться на факультете. судя по заданию....
-------------

function НАЗВАНИЕ_ФУНКЦИИ(переменные, которые участвуют): ТИП ФУНКЦИИ
var ТВОИ ПЕРЕМЕННЫЕ: ТИП ПЕРЕМЕННЫХ
begin
   ВОТ ТУТ СЧИТАЕМ ЧТО НАДО
end;

вот тебе пример из одного поста, тоже студенты писали

function stepen(chislo,step:byte):longint;
    
var
  kl :longint;
  il :byte;
begin
  kl:=1;
  for il:=1 to step do kl:=kl*chislo;
  stepen:=kl; //ГЛАВНОЕ ВОТ ТУТ В КОНЦЕ НЕ ЗАБУДЬ ПРИСВОИТЬ КАКОЕ-ТО ВЫЧИСЛЕННОЕ ТОБОЙ ЗНАЧЕНИЕ СВОЕЙ НАПИСАННОЙ ФУНКЦИИ, А ТО НИЧЕГО НЕ БУДЕТ
end;