Доброго дня всем! Заглючил на задаче на рекурсию.
Надо значит вывести значение и номер первого положительного числа, вычисленного по формуле
Xn=Xn-1 + Xn-2 + 100 (X1=X2=-99)

Вот мой код: (выводит ошибку переполнения стека)

program labrec;
uses crt;
var
x,n:integer;
function rec(n:integer):integer;
begin
repeat
  n:=n+1;
  if (n=1) or (n=2) then rec:=-99
  else rec:=rec(n-1)+rec(n-2)+100;
  n:=n+1;
until rec(n)>0;
end;
begin
clrscr;
write(rec(n),' ',n);
readkey;
end.

Рекурсивная функция в данном случае должна выглядеть так:

function rec(n:integer):integer;
begin
  if n<=2 then rec:=-99 else rec:=rec(n-1)+rec(n-2)+100;
end;

Не надо никаких repeat'ов. На то и рекурсия

Спасибо, понял свою ошибку: repeat-until надо было писать не в функции а уже в теле программы.