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

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  число, куб: ЦЕЛ;

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

КОН Задание.