Паскаль. Поменять все числа которые кратные 3 и не кратны 6

var

   n : integer; // длина мвссива

   a : integer; // количество замен

begin

   write('введите длину массива ');

   readln(n);

   var d : array of integer := new integer[n]; // создаем массив длиной n

   d := ArrRandom(n, 6, 100); // наполняем массив случайными числами от 6 до 100

   writeln('был сгенерирован массив ', d);

   for var i := 0 to n-1 do begin

       if (d[i] mod 3 = 0) and (d[i] mod 6 lt;gt; 0) then begin  // проверяем содержимое ячейки массимассива на условие задачки

           d[i] := 1; // заменяем значение ячейки на 1

           a += 1; // увеличиваем счетчик количества замен на 1

       end;

   end;

   writeln('массив после подмены ', d);

   writeln('было произведено замен ', a);

end.

итак...

генерируем массив обозначенной длины n

наполняем его случайными числами в диапозоне 6..100

так как паскаль нумерует ячейки массива начиная с 0 то задаем цикл от 0 до n-1

проверяем значение ячеек на соответствие условию

для этого разделяем значение на число и глядим поделилось без остатка означает кратно ему, поделилось с остатком означает не кратно.

если подходит условию то меняем значение на 1 и увеличиваем счетчик количества замен на 1

выводим сам массив и количество сделанных замен.