Написать процедуру в visual prolog, которая принимает число и умножает его само на себя до тех пор: пока число не будет равняться 16 или будет больше 100

 список учительницы                                                              список Марины 

Катя Арбузова                                                                            Марина Яблочкина

Яша Арбузов

Коля Белкин                                                                              Роберт   Щукин

Лена Волкова                                                                             Сережа Тополев 

Дима Иволгин                                                                             Валя Стрелкина    

Валя Стрелкина                                                                         Дима Иволгин 

Серёжа Тополев                                                                         Коля Белкин                                                                                                                                                      Лена Волкова

Роберт Щукин                                                                              Яша Арбузов

Марина Яблочкина                                                                     Катя Арбузова

Однажды нам предложили сделать робота. Вместе с моей подругой мы взялись за это дело - накопали в интернете кучу информации, поискали в журналах и книгах... К концу недели всё было готово.
Осталось самое важное -  как управлять этим устройством? А вдруг, он не поймет команды?...
Мы долго пытались разобраться в этом, но было уже около 4-х часов ночи и мы легли спать.
Утро. 6.00. Будильник. Робота нет.
Мы обыскали всю квартиру, даже в ванную заглянули - нет.
Потом оказалось, что мы случайно нажали кнопку запуска и еще какую-то, из-за чего робот включился и уполз под шкаф.