Переписать в массив B нулевые и кратные 5 элементы матрицы А в порядке их следования - Turbo Pascal

Формулировка задачи:

Желательно со схемой и контрольным примером Огромное спасибо! Ввести 2-мерный массив А целого типа.Сформировать одномерный массив типа В.Переписав в него все нулевые и кратные 5 элементы массива А в порядке их следования.Полученный массив В распечатать на экране.

Решение задачи: «Переписать в массив B нулевые и кратные 5 элементы матрицы А в порядке их следования»

Листинг программы

  b: array [1..Sqr(n)] of Integer;

Объяснение кода листинга программы

Объявляется массив b типа Integer размерностью от 1 до Sqr(n), где n - это количество строк в матрице А. Sqr(n) означает квадратный корень из n.
Инициализируются все элементы массива b нулевыми значениями.
Происходит перебор всех элементов матрицы А.
Если элемент матрицы А имеет нулевое значение или является кратным 5, то его значение добавляется в массив b.
Код продолжается до тех пор, пока все элементы матрицы А не будут проверены.