Помогите с программой Pascal.
Для примера "Перевод из десятичной системы счисления в заданную" написать комментарий на каждую строчку кода перепишите текст программы, напишите комментарии к каждой строчке программы.
код программы:
var a,b,c,d,k,n,ns,i:integer;
s:string;
begin
writeln('Введите число в десятичной системе счисления');
readln(n);
writeln('Введите основание системы счисления для переводов');
readln(k);
c:=1;
d:=1;
b:=0;
repeat
a:=n mod k;
b:=b+c*a;
c:=c*10;
d:=d+1;
n:=n div k;
until (n = 0);
if k