program CountMultiplesOf6;
var
i, count, num: integer;
begin
randomize;
count := 0;
for i := 1 to 100 do
begin
num := random(100) + 1;
if num mod 6 = 0 then
count := count + 1;
end;
writeln('Количество чисел, кратных 6: ', count);
end.

Программа генерирует 100 случайных чисел в диапазоне от 1 до 100 и подсчитывает количество чисел, которые кратны 6.