Задание, помогите., из 2 в 10 систему счисления. Опции

[Enot1]

Надо написать программу, которая переводит число из 2 в 10 систему счисления!

Добавлено через 1 мин.
Заранее спасибо.!

[Ozzя]

for i:=1 to length(s) do
  begin
     val(s[i],c,code); { взяли очередной символ из последовательности цифр и преобразовали его из символа в число }
     q:=q+c*power(2,Length(s)-i); { складываем сумму с очереной йифрой*на 2^i
  end;

Ф-йия power есть в той же теме в ФАК