program massiv;
var a:array[1..5] of integer;
i,k:integer;
begin
Writeln('Введите числа массива');
for i:=1 to 5 do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to 5 do
begin
if a[i] div 3<>0 then
k:=k+1;
end;
writeln('Колличество чисел кратных 3 =',k);
end.