获取指定的数

获取0至100中的0至29,42至100， 刚开始我想的太多,要小于29，大于42，这么多条件什么的。。。。 不多说了，我自己脑子没转过来

var
  i,j: integer;
begin
  j := 0;
  for i := 0 to 99 - 13 do begin
    memo1.Lines.add(j.ToString());
    if i = 29 then
      j := j + 13 else
    Inc(j);
  end;
end;

把不能被4整除的数变成被4整除的数：
var
	I, j: Integer;
begin
	for I := 0 to 100 do
	begin
		if (I mod 4 <> 0)then
		begin
			j :=4- (I mod 4);
			Memo1.Lines.Add((I + j).ToString);
		end;
	end;
end;

 写成函数：

function DoRectWidth(s: string):string;       // deal rect width    Multiple Of 4
var
	ss: TStrings;
begin
	ss := TStringList.Create;
	ss.CommaText := s;
	if ss[2].ToInteger mod 4 <> 0 then 
		ss[2] :=  (ss[2].ToInteger + (4 - (ss[2].ToInteger mod 4))).ToString;
	Result := ss[0] + ',' + ss[1] + ',' + ss[2] + ',' + ss[3];
end;