Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая заполнит второй массив (такой же или меньший по длине) только теми элементами первого массива, которые оканчиваются на 6 или на 1. Например из массива: 1 22 33 4444 533 36, получим 1 36. Размер массива заранее задан константой N. Используйте заголовок:procedure isAvB(a: TMas; var b: TMas; var KolB: longint);где KolB - количество элементов в массиве b. Тип ТMas задан как array[1. . N] of longint и может использоваться для описания параметров подпрограмм. заранее большое спасибо