Рекурсия,Паскаль

[narco3]

Задали сделать рекурсивную функцию
f(x)=ln(f(x-1)*x*x)-2 \x>8,x=8\

program lr_3;
uses crt;
function fun(var x:real):real;
begin
if x<8 then fun:=1;
if x>=8 then
fun:=ln(fun(x-1)*sqr(x))-2;
end;
var k,l:real;
begin
write('BBeDiT x=');read(k);
l:=fun(k);
writeln('function fun :',l);
readkey;
end.
cделал все по примеру, но ничего не получилось.Пожалуйста подсакжите что не так.

[Leshii]

Наверное тем что

fun:=ln(fun(x-1)*sqr(x))-2; там взялось непонятно зачем =)

program lr_3;
uses crt;
function fun(var x:real):real;
begin
if x<8 then fun:=1;
if x>=8 then
fun:=(ln((x-1)*sqr(x))-2);
end;
var k,l:real;
begin
write('BBeDiT x=');read(k);
l:=fun(k);
writeln('function fun :',l:3:2);
readkey;
end.

Ну вот правильно или не правильно касательно рекурсии то я особо не вдумывался. На заметку

Рекурсия Pascal-Паскаль
Подпрограммы в Паскале могут обращаться сами к себе. Такое обращение называется рекурсией.
Для того чтобы такое обращение не было бесконечным, в тексте подпрограммы должно быть условие, по достижению которого дальнейшее обращение к подпрограмме не происходит.