Последовательность Опции

[asu2006]

7,9,13,21,37,..... и т.д
Вот код

uses
crt;
var
n,i:byte;
begin
clrscr;
i:=0;
for n:=7 to 100 do
begin

i:=i+2;
n:=n+i;

if n<100 then

write('n=', n);
break;
end;
readln;
end.

но он почему то выдает одну 9?