Перевод из Двоичной системы исчисления в десятичну Опции

[-VIT-]

Собственно вот, не знаю с чего начать даже, может кто-нибуть напишет? или пример перевода в другие системы

[Egor]

Порылся у себя, нашёл. Работает.
А код следующий:

var
 dec,i,d : Integer;
 value : Byte;
 s : String;
begin
 Write('Input BIN number: ');
 Readln(s);
 for i:=Length(s) downto 1 do
 begin
  val(s[Length(s)-i+1],value,d);
  dec:=dec+round(value*exp((i-1)*ln(2)));
 end;
 WriteLn('DEC=',dec);
 ReadLn
end.

Всего-то