Сколько раз будет выполняться тело цикла?

var k,I :integer;
begin
k:=0; for I:=1 to k+3 do k:=k+I;
end;