Помогите пожалуйса с задачей!

Заполнить массив из 20 элементов случайными числами найти количество элементов кратных 6.

program fpro;var a : array[1..20] of integer;i : integer;s : integer;begin s := 0; randomize; for i :=1 to 20 do  begin   a[i] := random(1,100);   if (a[i] mod 6) = 0 then s := s+1; end;writeln('Количество элементов кратных 6: ', s)end.