найти значение минимального положительного числа числовой последовательности ,заданной рекуррентными соотношениями x[n]=x[n-1]+x[n-2]+100, x[1]=-99, x[2]=-99.) — Pascal(Паскаль)

[AdSense-B]

uses crt;
var x1,x2,xn:integer;
begin
clrscr;
x1:=-99;
x2:=-99;
xn:=x1+x2+100;
while xn<0 do
 begin
  x1:=x2;
  x2:=xn;
  xn:=x1+x2+100;
 end;
write('xn=',xn);
readln
end.