Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел - Pascal ABC

Формулировка задачи:

Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел в диапазоне от 1 до 256.

Решение задачи: «Напишите программу, которая печатает таблицу двоичных, восьмеричных и шестнадцатеричных эквивалентов десятичных чисел»

Листинг программы

uses crt;
const digit:string[16]='0123456789ABCDEF';
{функция перевода Dec числа в любую сс}
function FromDec(m,r:integer):string;
var s:String;
    n:integer;
begin
s:='';
n:=m;
repeat
s:=digit[(n mod r)+1]+s;
n:=n div r;
until n=0;
FromDec:=s;
end;
 
var k:integer;
begin
clrscr;
for k:=1 to 256 do
 begin
  writeln(k:4,fromdec(k,2):10,fromdec(k,8):8,fromdec(k,16):4);
  if k mod 22=0 then
   begin
    write('Press Enter');
    readln
   end
  end;
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом-выводом.
Затем определяются две константы: digit и FromDec. Константа digit представляет собой массив из 16 символов, которые соответствуют десятичным цифрам от 0 до 9 и буквам от A до F. Константа FromDec представляет собой функцию, которая принимает десятичное число и его основание (в данном случае 2, 8 и 16) и возвращает эквивалентное число в соответствующей системе счисления.
Далее объявляются переменные k, которая будет использоваться для перебора чисел от 1 до 256, и s, которая будет использоваться для хранения результата преобразования числа.
Затем идет цикл for, который перебирает числа от 1 до 256. Внутри цикла выводится десятичное число, его эквивалент в двоичной, восьмеричной и шестнадцатеричной системах счисления, используя функцию FromDec. Если число k делится на 22 без остатка, то выводится сообщение Press Enter и считывается ввод пользователя.
После завершения цикла выводится сообщение ReadLine.
Конец программы.