алг Репка
нач
цел N = 6
лит персонажи[6] = {"Дед", "Бабка", "Внучка", "Жучка", "Кошка", "Мышка"}
лог вытянули = ЛОЖЬ
вывод("Посадил дед репку.")
вывод("Выросла репка большая-пребольшая.")
цикл пока не вытянули
вывод("Пошел дед репку рвать.")
для i от 0 до N-1
вывод(персонажи[i], " тянет-потянет, вытянуть не может.")
если i < N-1 то
вывод(персонажи[i], " позвал ", персонажи[i+1], ".")
иначе
вывод("Мышка за кошку, кошка за Жучку, Жучка за внучку,")
вывод("внучка за бабку, бабка за дедку, дедка за репку —")
вывод("Тянут-потянут, и вытянули репку!")
вытянули = ИСТИНА
все
кц
кц
вывод("Вот и сказке конец, а кто слушал - молодец!")
кон