1. Для хранения растрового изображения размером 128*54 пикселей отвели 6 Кбайт памяти. Каково максимально возможное число цветов в палитре изображения? 2. Достаточно ли видеопамяти объемом 512 Кб для работы монитора в режиме 440х280 и палитрой из 16 цветов?
3. Определить объем видеопамяти компьютера (в Кб), который необходим для реализации графического режима монитора с разрешающей 1024х768 точек и палитрой из 1024 цветов.

Сбор - совместно осуществляемые процедуры поиска и отбора;
Хранение - процесс содержания информации в исходном виде;
Вывод - перенос информации на другой носитель;
Передача - процесс перемещения информации от источника к приемнику;
Обработка - преобразование информации для решения задач;
Кодирование- преобразование информации из одной формы представления в другую;
Накопление - процесс формирования массива информации;
Ввод - получение информации техническими системами;
Поиск - процесс отбора информации с определенной целью.  

Программа не работает, по тому, что в цикле после условия "if p=13", в блоке else у вас идет "зацикливание". По goto вы прыгаете опять обратно в начало итерации цикла.
Очевидно, что успешность выполнения завершения цикла зависит от значения P, так как в любом случаи, если P != 13, вы возращаетесь в начало цикла.

Маленькое лирическое отступление:
Отформатированный код будет приведен в коментариях, если кому-то не ясно.

Ваш код сложно назвать "спагетти кодом", т.к. у вас все довольно очевидно, с тем лишь отличием, что вы используете дериктиву goto, от неё откажитесь в вашей практике, сложнее понять как будет функционировать ваша программа, хотя вашем коллегам по старше будет это очевидно, при наличии опыта.

P.S.
Создайте новый вопрос с описанием задачи и скиньте мне сообщением ссылку.

за отметку "Лучший ответ" и нажатую кнопочку " " тут и в моем профиле.