Составьте правила работы в графическом редакторе tux paint

Сначала найдём количество программ из 1 в 7, затем из 7 в 13, после чего их перемножим.

Из 1 в 7
Начинаем с числа 5, т.к. это наименьшее число, к которому можно применить обе команды. В скобках будем писать количество программ.

(1)6<-5->7(1)
То есть из числа 5 можно получить числа 6 и 7. Рассмотрим число 4
(2)5<-4->6(1)
Из числа 5 две программы, это указано в скобках. Общее количество программ из числа 4 - три.
Рассмотрим таким все остальные числа до 1.
(3)4<-3->5(2) - всего 5 программ
(5)3<-2->4(3) - всего 8 программ
(8)2<-1->3(5) - всего 13 программ.

Найдем количество программ из 7 в 13. Начнем с числа 11, т.к. это наименьшее число, к которому можно применить 2 команды
(1)12<-11->13(1) - 2 программы
(2)11<-10->12(1) - 3 программы
(3)10<-9->11(2) - 5 программ
(5)9<-8->10(3)  - 8 программ
(8)8<-7->9(5)  - 13 программ

Из 1 в 7 существует 13 программ, из 7 в 13 тоже 13 программ. Общее количество программ равно 13*13 = 169

1)
// здесь нужно объявить количество элементов или ввести с
var 
a: array [1..N] of integer;
i: integer;
min: integer;
max: integer;
minnum: integer;
maxnum: integer;

begin
// здесь должен быть ввод значений массива в цикле
// for i:=1 to N do
a[i]=Random(100); или через readln;

min := a[1];
minnum := 1;
max := a[1];
maxnum := 1;
for var i:=2 to N do
begin
  if a[i]<min then
    begin
      min := a[i];
      minnum := i;
    end;
  if a[i]>max then
    begin
      max := a[i];
      maxnum := i;
    end;
end;
a[maxnum]=min;
a[minnum]=max;
//здесь вывод нового массива
end.

2)
for i:=1 to N do
if a[i]>0 then
  if a[i] mod 2 = 0 then
     write(a[i], ' ');
3)
var
sum: integer;
start: integer;
for i:=1 to N do
if a[i]=0 then
   start=i+1;  нашли первый нулевой, начинаем дальше со следующего
for i:=start to N do
begin
if a[i]>0 then
   begin
    sum=sum+a[i];
    write(i, ' '); ///номер положительного элемента
   end;
writeln;
write('Сумма =',sum);
end;