Запустить основной модуль
Объявить
длину , расстояние как поплавок
Отобразить «Введите длину червяка».
Отображение
ввода длины
«Введите расстояние от червяка до яблока»
Введите расстояние
Вызов модуля MoveWorm
Конец основного модуля Модуль
MoveWorm
Пока Distance> = 0
Distance = Distance - WormLength
End при
отображении «Червь достиг яблока!»
Завершить модуль MoveWorm
Подробнее: Разработайте программу, моделирующую поведение червя ... - JustAnswer
www.justanswer.com