Como hacer if 1,2,3.....

[cmm07]

hola más o menos así sería:

Código Delphi [-]
var
I, formula: integer;
resultante: array[1..255] of integer;
begin

for I := 1 to 255  do begin
  formula := 2 * I + 1;
    resultante[i] := formula
end;

resultante es el array que contiene los números impares.., no está del todo perfecto, ni siquiera tengo el delphi a mano xD pero obtinene los primeros 255 impares