ПОМОГИТЕ ПЛИЗ!!!) Составьте программу для нахождения наименьшего натурального числа, куб которого начинается с цифр 2016 Выходные данные 1out : 3 27

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\"; ПЕР   число, куб: ШИРЦЕЛ; УКАЗ   число := 1;   КОЛЬЦО     УВЕЛИЧИТЬ(число);     куб := число * число * число;     ПОКА куб > 10000 ВЫП       куб := куб ДЕЛИТЬ 10     КОН;     ЕСЛИ куб = 2016 ТО       Вывод.ЧЦел("%d", число, 0, 0, 0);       ВЫХОД     КОН   КОН КОН Задание.