Найти наибольший из элементов, кратных 3, заданного целочисленного массива X = (x1, x2, ... xN). (Паскаль)

Входные и выходные данные напишите, возможно я не понял задачу.

Данная программа считывает n, затем считывает множество чисел x1, x2, x3, ..., xN и вы видите самое большое число делящееся на 3

var x, i, n, ma:integer; beginread (n); for i:=1 to n do begin read (x); if (x>ma) and ((x mod 3) = 0) then ma:=x; end; writeln (ma); end.