Помогите расписать формулу в Delphi

[anghela]

Помогите расписать формулу в Delphi, не получается правильно расписать:
если сумма кредита - это sum_kr, p=1/12, N - srok_mes. К примеру возьмем сумму 100 000, срок - 18 мес

Пишу такую формулу:
Код:
plata:=sum_kr*(1/12+((1/12)/((exp(srok_mes*ln(1+1/12)))-1)));
Выводится не верный результат. Подскажите, как правильно?

И если не трудно, напишите как округлить число до 0,0000?

[SaLoKiN]

sum_kr*(P+(P/(exp(ln(1+P)*srok_mes)-1)));

введите переменную P:=0.833

И если не трудно, напишите как округлить число до 0,0000?

writeln(plata:4);