Вы не могли бы написать программу перевода из 16-й в 2-ую систему счисления. (с функцией.)

Function f16t2(s16: string): string; const   m: array['0'..'f'] of string=       ('0000','0001','0010','0011','0100','0101','0110','0111',         '1000','1001','','','','','','','','1010','1011','1100',         '1101','1110','1111');   m1: array['0'..'f'] of string=       ('0','1','10','11','100','101','110','111','1000','1001','',         '','','','','','','1010','1011','1100','1101','1110','1111'); var   s: string;   i: integer; begin   s16: =uppercase(s16);   s: =m1[s16[1]]+'''';   for i: =2 to length(s16) do s: =s+m[s16[i]]+'''';   f16t2: =copy(s,1,length(s)-1) end; var   s: string; begin   write('введите шестнадцатиричное число: '); readln(s);   writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 101'1010'1100'1000'1110'0010 если разбивка вывода по не нужна, можно чуть : function f16t2(s16: string): string; const   m: array['0'..'f'] of string=       ('0000','0001','0010','0011','0100','0101','0110','0111',         '1000','1001','','','','','','','','1010','1011','1100',         '1101','1110','1111');   m1: array['0'..'f'] of string=       ('0','1','10','11','100','101','110','111','1000','1001','',         '','','','','','','1010','1011','1100','1101','1110','1111'); var   s: string;   i: integer; begin   s16: =uppercase(s16);   s: =m1[s16[1]];   for i: =2 to length(s16) do s: =s+m[s16[i]];   f16t2: =s end; var   s: string; begin   write('введите шестнадцатиричное число: '); readln(s);   writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 10110101100100011100010

Вобщем хотелось получше.(один раз хотел обработать числа при запуске формы, однако похоже обработчик не запускался почему не выяснил, а время выходит),  получилось только так: картинки снимки экрана при работающей программе. файл pdf содержит текст исходника. zip архив с проектом по-моему не пришивается к ответу. и как тогда быть? весь проект я не . прилепить отдельно файлы проекта тоже не получится. такие расширения сервис не принимает придется создавать проект в lazaruse самому и по образу и подобию лепить   формочку. а потом копировать текст исходника : ). на сей случай уточню, что   кнопка button 1 - запускает подсчет и вывод простых чисел.   кнопка button 2 - запускает подсчет и вывод  составных чисел.   в метку label 3  (самая нижняя на формочке) выводим ответ. а в метку label 4 (вторая снизу) (выводим пояснения о выводе).   соответствующие комментарии в исходнике  есть, но мало ли. можно конечно список файлов проекта приложить и их содержимое, загнанное в pdf, но мороки с развёртыванием такого чуда не меньше чем при создании нового проекта и новой формы.