В этой задаче вам дается массив целых чисел a. Требуется из каждой тройки чисел в этом массиве выбрать максимум и вывести его. Первая тройка - это числа, стоящие на местах 1, 2, 3. Вторая тройка - это числа, стоящие на местах 4, 5, 6 и так далее.

Program n_1;

var n, i, b:integer; a: array of integer;

begin

   readln(n);

   SetLength(a, n);

   for i:=1 to n do read(a[i]);

   b:=1;

   while (b<n) do begin

       if a[b+1]>a[b] then a[b]:=a[b+1];

       if a[b+2]>a[b] then a[b]:=a[b+2];

       write(a[b], ' ');

       b:=b+3;

   end;

end.