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

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