Форум Селятино

написать функцию которая считает...
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.