Pascal ABC. Перевод из двоичной в десятичную систему счисления.

[ARTEM_KA]

Всем привет! Нужна программа школьного уровня.
Цель: перевести введённое двоичное число в десятичную систему.
Заранее благодарен!

[b2soft]

581751789 пиши - расскажу что и куда и с чем его едят.

[b2soft]

вот что выдал поиск:

function ToNormal(var x: string): integer;
var y: string;
    rez: real;
    i,t: integer;
begin
  y := x; rez := 0;
  for i:=0 to length(y)-1 do
   begin
     t := StrToInt(y[Length(y) - i]);
     rez := rez + t * Exp(i * ln(2));
   end;
  ToNormal := Round(int(rez));
end;

[ARTEM_KA]

Сообщение от b2soft

вот что выдал поиск:

function ToNormal(var x: string): integer;
var y: string;
    rez: real;
    i,t: integer;
begin
  y := x; rez := 0;
  for i:=0 to length(y)-1 do
   begin
     t := StrToInt(y[Length(y) - i]);
     rez := rez + t * Exp(i * ln(2));
   end;
  ToNormal := Round(int(rez));
end;

Спасибо, но это сложновато, учитель не примет.. Мне бы просто алгоритм перевода расписать самым самым простым языком, да и в тело программы запихнуть.

[b2soft]

есть идея забить все цифры в массив, потом читать их и считать результат