program largestMultipleOfThree;
var
X: array[1..100] of integer;
N, i, maxValue: integer;
begin
writeln('Введите размер массива: ');
readln(N);

writeln('Введите элементы массива:');
for i := 1 to N do
begin
readln(X[i]);
end;

maxValue := -1;

for i := 1 to N do
begin
if (X[i] mod 3 = 0) and (X[i] > maxValue) then
begin
maxValue := X[i];
end;
end;

if maxValue = -1 then
begin
writeln('Нет элементов, кратных 3');
end
else
begin
writeln('Наибольший элемент, кратный 3: ', maxValue);
end;
end.