составить программы для решения задач

1) Делим 26 бриллиантов на 2 групы по 13 бриллиантов и взвешиваем на весах. Та группа, которая тяжелее, включает в себя настоящий бриллиант.

Эту группу делим на две по 6, 1 бриллиант откладываем, и взвешиваем. Если эти группы по 6 равны по массе, то этот отложенный 1 бриллиант и есть настоящий. Если же нет, то берем группу с наибольшим весом.

Делим эту группу на две по 3 бриллианта в каждой, взвешиваем. Та группа которая тяжелее, содержит настоящий риллиант. Берем ее.

Берем из этой группы 2 бриллианта и взвешиваем их. Если они равны по массе, но настоящий бриллиант 3. Если же нет, то настоящий бриллиант тот, что тяжелее.

2) Эти 4 детали делим на группу по 2 детали в каждой. Работаем с первой группой. 

Эти две детали из 1 группы взвешиваем на весах,  если они равны по массе, то это обычные одинаковые детали. тогда приступаем ко второй группе. Берем детальку из второй группы и взвешиваем с деталькой из первой группы, если они равны, то отличающаяся деталь - это вторая делать из группы 2. Если же нет, то отличаюящая деталь это первая деталь из группы два.

Возвращаемся к первой группе. (мы не рассмотрели случай, где детали из первой группы не будут равны по массе). Так вот. В этом случае, берем деталь из первой группы и взвешиваем с деталью со второй группы, если они равны, то отличающаяся деталь - вторая деталь из группы 1. Если же нет, то отличающаяся деталь - первая деталь из группы 1.

...

...

Надеюсь ты поняла ход моих мыслей:D

Удачи на контрольной!

Var
  a:array[1..10000] of integer;
  i, n, first, last:integer;
  fl: boolean;
begin
  Read(n);
  For i:= 1  to n do
    Read(a[i]);fl:=false;
  For i:= 1 to n do
    if (a[i] mod 5 = 0) then
      if (fl = false) then begin
                               fl:= true;
                               first := i;
                               last:= i;
                           end
                           else
                               last := i;
   Writeln('Первый -> ', first);
   Writeln('Последный -> ', last);
       
end.