Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. например, дано число в двоичной системе счисления: 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.