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

type Tmas = array [1..100] of longint; vari,A,max:longint;m:Tmas;beginmax:=0;WriteLn('Введите количество элементов.');ReadLn(A);Writeln('Вводите элементы массива.');for i := 1 to A do beginreadln(m[i]);if m[i]>max thenmax :=m[i];if i mod 3 = 0 thenbeginwriteln(max);max:=0;end;end;end.