Проверь вот такой вариант:
progra2.zip ( 24.69 килобайт )
Кол-во скачиваний: 405Вариантов для подобных манипуляций много.. Для твоего случая я выбрал самый простой - т.к. в самом начале программы уже стоит
write('введите номер уровнения 1 2 3'), я просто подменил адрес строки, передаваемой как параметр для функции write на другой. Нашел более-менее свободное место (сообщения об ошибках всяких
) и записал туда все необходимые тебе строки.
В общем случае можно поступать так:
- найти место, в которой хотелось бы что-то добавить;
- запомнить команду, которая в итоге будет замещена;
- поставить на нее переход в свободное место, где и написать весь необходимый код и ту самую запомненную команду;
- вернуться обратно, на следующую за переходом команду.
Свободное место ищется по разному.. Можно заместить некоторые неиспользуемые функции модулей Crt или Graph или еще как.. Главное тут не промахнутся