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

CONST N=5; var a: array[1… N] of integer; min,i,col: integer; beginmin: =56536; col: =0; for i: =1 to N dobeginread (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.