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

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

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

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

КОН Задание.