[email protected] , ответ добавлен 26.04.2017 в 14:23

// PascalABC.NET 3.2, сборка 1427 от 24.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  SeqGen(55,n->2*n+1).Println
end.

Результат
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109

 0   

[email protected] , ответ добавлен 26.04.2017 в 14:12

Var
  i, n: integer;

begin
  i := 1;
  n := 1;
  while i <= 55 do
  begin
    write(n, ' ');
    n := 2 * i + 1;
    i := i + 1;
  end;
end.

 0