Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более...

Question

Переведите натуральное число из двоичной системы в десятичную (в двоичном числе не более 10 цифр). Нужна программа на паскале.
Входные данные:1
Выходные данные:1

Answer 1

Var
  n,s,p,d:longint;
begin
  Write('Введите двоичное число: '); Read(n);
  s:=0; p:=1;
  repeat
    d:=n mod 10;
    s:=s+d*p;
    p:=p*2;
    n:=n div 10
  until n=0;
  Writeln('В десятичной системе это число равно ',s)
end.

Пример
Введите двоичное число: 1101011
В десятичной системе это число равно 107