Вот пример программы на Pascal, которая находит минимальный массив из 15 целых чисел, кратных 3, но не кратных 5:

program MinArray;

var
  arr: array[1..15] of integer;
  i, num: integer;

begin
  num := 0;

  for i := 1 to 15 do
  begin
    repeat
      num := num + 1;
    until (num mod 3 = 0) and (num mod 5 <> 0);

    arr[i] := num;
  end;

  writeln('Минимальный массив кратный 3, но не кратный 5:');

  for i := 1 to 15 do
    write(arr[i], ' ');

  readln;
end.

Программа использует цикл repeat...until, чтобы находить следующее число, которое кратно 3, но не кратно 5. Затем она сохраняет это число в массиве arr. В конце программа выводит полученный массив на экран.

Обратите внимание, что в этой программе мы предполагаем, что существует такое количество чисел, удовлетворяющих условию. Если это не так, программа может зациклиться.