Ввести массив А[1...5]. Найти количество частей кратных 3.

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 3lt;gt;0 then

k:=k+1;

end;

writeln('Колличество чисел кратных 3 =',k);

end.