Прокомментировать код

Uses CRT;
 
const a: string[16] = '0123456789ABCDEF';
 
var s: string;
    c, n2, n3: integer;
 
begin
 ClrScr;
 
 repeat
  write('Введите число в десятичной СС: ');
  readln(n2);
 until n2>0;
 n3:=n2; 
 repeat
  write('Введите систему счисления в которую хотите перевести число: ');
  readln(c);
  if c=10 then write('ошибка ввода');
 
 until c in [2..16];
 s := '';
 repeat
  s := ((a[n2 mod c + 1]) + s);
  n2 := n2 div c
 until (n2 = 0);
 writeln('Число ', n3 ,'',' в ',c,'-й системе счисления:=',s);
 readkey
end.

Uses CRT; //подключаем модуль CRT, нужен для ClrScr и readkey
//константа содержит возможные "цифры" записи числа в разных СС 
const a: string[16] = '0123456789ABCDEF';
//объявляем переменные 
var s: string;
    c, n2, n3: integer;
 
begin
 ClrScr; //очистка экрана
 //ввод числа которое надо перевести их 10 СС в другую
 repeat
  write('Введите число в десятичной СС: ');
  readln(n2);
 //пока число не будет больше 0
 until n2>0;
 //создаем копию числа, чтобы не забыть, в конце пригодится
 n3:=n2;
 //ввод целевой СС
 repeat
  write('Введите систему счисления в которую хотите перевести число: ');
  readln(c);
  //если снова 10 СС, то ошибка ввода
  if c=10 then write('ошибка ввода');
 //до тех пор пока не введут систему счисления от 2 до 16
 until c in [2..16];
 //выходная строка изначально пуста
 s := '';
 //в цикле формируем разряды нового числа и приклеиваем к нашей строке s
 repeat
  s := ((a[n2 mod c + 1]) + s);
  //берем целую часть числа
  n2 := n2 div c
 //пока наше число не станет равно 0
 until (n2 = 0);
 //выводим результат перевода
 writeln('Число ', n3 ,'',' в ',c,'-й системе счисления:=',s);
 //ожидание нажатия клавиши
 readkey
end.