Снапишите программу, которая переводит переданное ей неотрицательное целое число в 10-значный двоичный код, сохранив лидирующие нули. используйте процедуру.входные данныевходная строка содержит неотрицательное целое число n ( 0 ≤ n <  8 10 выходные данныепрограмма должна вывести 10-значный двоичный код переданного её числа, сохранив лидирующие нули.

Ansichar   символьный тип, гарантированный размер 8 бит 0..  255 widechar  тип переменной содержащий отдельный интернациональный символ 0,,65535 char  переменная этого типа занимает 1 байт и принимает одно из 256 значений кода ascii real48  тип с плавающей запятой с самой высокой вместимостью и точностью single занимает 4 байта  double  занимает 8 байт  extended  занимает 10 байт  comp  занимает 8 байт  currency  занимает 8 байт  −922337203685477..5807  real - для записи вещественных чисел  p.s. надеюсь на и лучший ответ.

Program ekran; begin   writeln('   **********************************');   writeln('');   writeln('   *           программа             *');   writeln('');   writeln('   *     вычисления суммы цифр     *');   writeln('');   writeln('   *       автор: петров в.и.         *');   writeln('*');   writeln('   *************************');   writeln(''); end.