Дан массив, заполненный случайными целыми числами в диапазоне от 0 до 30000.
Напишите подпрограмму, которая определяет количество элементов массива, являющихся степенями 3-ки.
Размер массива заранее задан константой N. Используйте заголовок:
function find(m: TMas): longint;