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

Входные и выходные данные напишите, возможно я не понял задачу.
Данная программа считывает 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.