Используя цикл while, запишите массив,который находит сумму и произведение нечетных элементов, кратных 3. паскаль

Можно целиком задание? как формируется массив - рандомом или с клавиатуры, как завершить цикл (например, цифрой 0).