На числовой прямой даны два отрезка: D = [28; 67] и C = [15; 33]. Укажите наименьшую возможную длину такого отрезка А, Для которого логическое выражение (x € D) → ((-(x € C)A-(x € A)) →-(x € D))
истинно (т.е. принимает значение 1) при любом значении переменной х.

с заданией

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

begin
  Writeln('Сумма равна ',Range(1,223,2).Println.Sum)
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 111 113 115 117 119 121 123 125 127 129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159 161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191 193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
Сумма равна 12544

MS DOS QBasic 1.0

DIM n AS INTEGER, m AS INTEGER
CLS
INPUT "n,m=", n, m
IF n < 3 THEN
   PRINT "n<3"
   SYSTEM
END IF
REDIM a(1 TO n, 1 TO m) AS INTEGER
RANDOMIZE TIMER
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = INT(50 * RND)
      PRINT USING "###"; a(i, j);
   NEXT j
   PRINT
NEXT i
PRINT
FOR i = 4 TO n
   FOR j = 1 TO m
      a(i - 1, j) = a(i, j)
   NEXT j
NEXT i
FOR i = 1 TO n - 1
   FOR j = 1 TO m
      PRINT USING "###"; a(i, j);
   NEXT j
   PRINT
NEXT i

Пример

n,m=5,8
 43  6 19 48 44  6 28 10
  5 48 44  1 31 30 25 33
 19 30 46 27 29 34 45  8
 17 37 43  1 37 46 25 45
 48 48 27 21 36 48 44 37

 43  6 19 48 44  6 28 10
  5 48 44  1 31 30 25 33
 17 37 43  1 37 46 25 45
 48 48 27 21 36 48 44 37

Замечание
Поскольку QBasic не поддерживает сохранение содержимого при изменении размеров динамического массива, для упрощения было решено не заниматься созданием вс массива, копирования в него всех строк, кроме последней, затем изменение размера исходного массива и обратное копирование в него. Просто считается, что n уменьшилось на 1.