Помогите♥
Дан массив из 20
произвольных
элементов, каждый из
которых не больше 100.
Найдите максимальный
элемент кратный 6.

Допустим d - переменная массива, тогда основной код будет выглядеть так (на паскале):

max = -101;
for i = 1 to 20 do
  if (d(i) > max) and (d(i) mod 6) = 0 then max = d(i);
if max = -101 then
  writeln('В массиве нет ни одного подходящего элемента')
else
  writeln(max);