Пожалуйста, помогите разобраться, в чём ошибки.(Рекурсии. Паскаль)

[katris]

program summa2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
Function resultat(i: integer) : extended;
Begin
   If (i= 0)
   then resultat:=1
   else
      if (i=1)
      then resultat:=resultat(i)+2
      else
      resultat:=resultat(i)+resultat(i)*(2/(i-1));
End;

var i:integer;
 e:extended;
begin
i:=0;
e:=0.001;
while 1/i>=e do begin
i:=i+1;
end;
writeln(resultat(i));
readln;
End.

Мне немного непонятно было как тут i изменять (увеличивать на 1). Без этого (для одно значения i ) работает...

[Alar]

readkey попробуй вставить в конце, хотя и readln; должен ждать ввода.

[Alex_FF]

Сообщение от Alar

readkey попробуй вставить в конце, хотя и readln; должен ждать ввода.

программа на Delphi написана: {$APPTYPE CONSOLE}, а на Delphi нет ReadKey... Там нужно дважды ReadLn писать...

[Alex_FF]

а что программа то делать должна? у вас там "вечная рекурсия" же написана