Вот полагаю то что вам нужно (во вложении схема), набросал ее для вас, можете использовать смело, она ни откуда не взята а сделана для вас.
На схеме алгоритм приготовления салата (обобщенно, без указания объемов ингридиентов и уточнения действий, но для информатики, по идее, важно именно понимание смысла составления блок-схем и алгоритмов действий)
Общие
производительность труда (в целом, по промышленности и сельскому хозяйству, по отдельным отраслям и видам производств);
капиталоемкость единицы ВВП или конкретного вида продукции;
фондоотдача единицы основных фондов;
материалоемкость единицы ВВП или конкретных видов продукции.
показатели сравнительной конкурентоспособности, разработанные МВФ
удельные затраты на заработную плату (в расчете на единицу продукции);
нормализованные удельные затраты на рабочую силу (в расчете на единицу продукции), т. е. выпуск продукции на отработанный человекочас;
уровень полных удельных издержек по элементам добавленной стоимости, т. е. показатели удельных расходов всех первичных факторов производства;
сравнительный уровень оптовых цен промышленности;
<span>сравнительный уровень экспортных цен промышленных товаров.
</span>
1)
var a:Integer;
begin
Readln(a);
if a div 10=3 then
writeln('True');
readln;
<span>end.
2)
var a,b:Integer;
begin
Readln(a,b);
if ((a<100) and (b>100)) or ((a>100) and (b<100)) then
Writeln('True');
readln;
<span>end.</span></span>
Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
К сожалению могу ответить только на второй вопрос. Во втором вопросе ответ "розовый", то есть 3)