Código Delphi [-] for I := 25 downto 1 do begin { En cada paso usas 2*I en lugar de I } end;
for I := 25 downto 1 do begin { En cada paso usas 2*I en lugar de I } end;