Задача легкая. Необходимо учесть, что при проверки можно выйти за пределы масива, чтобы этого избежать мы создадим массив от 0 до 101. Считывая данные удобнее поступить следующим образом: в цикле мы считываем пару чисел (a,b) и q[a,b] := 1. Потом проходясь циклом мы ищем единицу, когда нашли проверяем, если соседняя клетка не содержит единицу то увеличиваем счетчик на 1.