Ан массив из 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.