Вычислите значения выражений
(2 + 2 = 4) u (7 > 15) =
(3 + 5 = 9) или (7 > 8) =
не (15 делится на 3) =
(число 5 - четное) и (5 < 3) =
(3 > 7) или (5 < 8) =
(5 > 7) или (8 < 6) =
не (число 7 - четное) =
(2 + 3 = 5) или (9 делится на 3) =
(число 5 - нечетное) и (7 > 3) =

Товар это все то што можно продать, продать можно то што хотят купить.
Информация это в том числе знания. 
Знание как сделать то или другое, формулы сплавов стали, пропорции градиентов в еде или лекарствах, методы добывания ископаемых, методы очистки. Бесспорно все это можно продать и стоит порой больших денег, потому что на них можно заработать еще больше денег
Это один из примеров

Учеба стоит не дешево, а это ничто иное как процесс получения и усвоения знаний/информации

Стратегические потому что на основе информации строится стратегия дальнейших действий

Program a1; 
var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; 
begin 
writeln('Vvedite massiv Y: '); {просим ввести массив} 
for k:=1 to 14 do read(y[k]); {записываем массив} 
s1:=0; s2:=0; {счётчики на 0} 
minY:=y[1]; {присваиваем первому значению минимум...} 
for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} 
maxY:=y[1]; {присваиваем второму значению максимум...> <} 
for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} 
m:=y[s1]; {используя переменную m меняем местами элементы} 
y[s1]:=y[s2]; 
y[s2]:=m; 
writeln('Novyi massiv: '); 
for k:=1 to 14 do write(y[k],' '); {выводим новый массив} 
readln 
end.