1:
2:
3:
4:

for i := 1 to 20 do
  if i mod 2 = 0 then
    memo1.lines.text := memo1.lines.text + inttostr(i)+', ' else
    memo1.lines.text := memo1.lines.text +'-'+inttostr(i)+', ';					

1:
2:
3:
4:

for i := 1 to 20 do
  if i mod 2 = 0 then
    memo1.lines.add(inttostr(i)) else
    memo1.lines.add('-'+inttostr(i));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  t : String;
begin
  for i := 1 to 20 do begin
    if odd(i) then
      t := IntToStr(i)
    else
      t := IntToStr(-i);
    memo1.lines.add(t);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.GoClick(Sender: TObject);
var
  i: Integer;
  t : String;
begin  
  for i := 1 to 20 do begin
    if odd(i) then  
      t := IntToStr(-i)
    else
      t := IntToStr(i);
    memo1.lines.add(t);
  end;  
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  I, J: Integer;
  S: String;
begin

  I := -1;
  J := 2;

  repeat
    S := S + IntToStr(I) + ', ' + IntToStr(J) + ', ';
    Dec(I, 2);
    Inc(J, 2);
  until J > 20;

  Memo1.Lines.Add(S);

end;					

1:
2:

for i := 1 to 20 do
 Memo1.Lines.Add(FloatToStr(cos(i*pi)*i)); // oder alternativ Power(-1,i)*i					

1:

Memo1.Lines.Add(inttostr(i*(1-i and 1*2)));