paskal помогите , скоро экзамены , но как сделать ... я хз

кем бы ты ни был ты гений , большое спасибо!

program z;var x,max,n,i:integer;beginreadln(n);   {запросить количество чисел}max:=0;      {начальное значение максимума}for i:=1 to n dobegin readln(x);    {считать очередное число} if (x mod 16=0) and (x>max)      then max:=x; {если число кратно 16 и больше предыдущего}                            {значения max, то считать его максимумом}end;writeln(max);end.