Составьте програму для нахождения наименьшего натурального числа,куб которого начинается с цифры 2016 (2 0 1 6 ) выходные данные (3 27)

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