Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. Например, дано число в двоичной системе счисления: 11012. Перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13.
Помогите пж. надо на паскале сделать.​

var n,k,m: integer;

begin

 write('двоичное число:  ');  readln(n);

 k:=1;  m:=0;

 repeat

   m:=m+k*(n mod 10);

   n:=n div 10;

   k:=k*2;

 until n=0;

 writeln('десятичное число:  ',m);

end.