Ан массив из 30 элеменов. Найи минималное знаение и колиесво элеменов делися на 3

CONST N=5; var a:array[1..N] of integer; min,i,col:integer; begin min:=56536; col:=0; for i:=1 to N do begin read(a[i]); if a[i] < min then min:=a[i]; if a[i] mod 3 = 0 then inc(col); end; writeln('Минимальное значение в массиве = ',min); write('Количество элементов кратных 3 = ',col); end.