Delphi для начинающих )))

[Recorder=)]

здрасти ребят)))это снова я...программист года, надежда галлактики...

вот в чем фишка...рекурсивная функция...
может кто нить помнит???

вот...
терь собственно к делу...

написать функцию которая считает...
x^2\(1+x^3\(1+x^4\(1+x^n)

вот собственно что я сообразил:

program lab_2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
x,n,rezult:integer;

function delenie(x,n:integer):integer;
begin
if (n<=2) then delenie:=x^2
else delenie:=(delenie(n-1)\n)+1;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('vvedite znaxeniya x,n');
write('x=');
readln(x);
write('n=');
readln(n);

rezult:=delenie(x,n);

end.

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

может у кого нить есть соображения???

[Quos]

функция деление принемает вроде 2 аргумента...
а у тебя
else delenie:=(delenie(n-1)\n)+1;
один...
мож я чето не помню -)

Попробуй так
else delenie:=(delenie(x,(n-1)\n)+1;

мож сработает =*)