С клавиатуры вводят 4 числа. Определить есть ли среди них кратные 6.информатика 9 класс​

for i := 0 to 3 do

begin

read(a)

k := 0

if(a mod 6) k := k+1;

end;

if(k > 0) then write('да');

else write('нет');