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