Решите информатику быстрее

const

 nn = 100;  // максимальное число элементов

var

 a: array[1..nn] of integer;

 i, n, m: integer;

begin

 read(n);

 m := -32768;

 for i := 1 to n do

 begin

   readln(a[i]);

   if (a[i] < 100) and (a[i] mod 3 = 0) and (a[i] > m) then

     m := a[i];

 end;

 write(m);

end.