Система счисления

 program ToDec;
    uses CRT;
var
   C: string;
   R: longint;
   O: byte;
   fi: text;
 
Function Hex_to_Dec (H:string): longint;         {функция перевода из 16-ричной СС в десятичную}
var
  p,res: longint;
  i,b: word;
  c: char;
Begin
       res := 0;
       p := 1;
       for i := length (H) downto 1 do
       begin
            c := UpCase (H[i]);
            case c of
            'A'..'F': b := ord(c) - (ord('A') - 10);    { ord (c) - 55 }
            '0'..'9': b := ord(c) - ord('0');           { ord (c) - 48 }
            else break
            end;
            inc (res, b * p);                           { res := res + b * p}
            p := p * 16;                                { или p := p shl 4 }
       end;
       Hex_to_Dec := res;
end;
 
Function Bin_to_Dec (S: String): longint;        {функция перевода из двоичной СС в десятичную}
var
  i, b: word;
  p, res: longint;
Begin
       res := 0;
       p := 1;
       for i := length (S) downto 1 do
       begin
            b:= ord (S[i]) - ord ('0');
            inc (res, b * p);
            p:= p * 2;                                  { или   p := p shl 1 }
       end;
       Bin_to_dec:=res;
End;
 
Function Oct_to_Dec (A: String): longint;        {функция перевода из 8-ричной СС в десятичную}
var
  i, b: word;
  p, res: longint;
Begin
       res := 0;
       p := 1;
       for i := length (A) downto 1 do   {перебираем разряды числа в обратном порядке}
       begin
            b:= ord (A[i]) - ord ('0');   {присваиваем переменной b значение текущего разряда}
            inc (res, b * p);             {увеличиваем значение res на произв соответствующей степени}
            p:= p * 8;                                  { или   p := p shl 3 }                               
       end;
       Oct_to_dec:=res;
End;
 
begin
clrscr;
 
assign(fi, 'rezult.txt'); {создаём файл для вывода результатов и открываем его для записи}
Rewrite(fi);
 
writeln('Programma dla perevoda chisel iz sistemi schislenia s osnovanijami 2, 8 i 16 v sistemu s osnovaniem 10');
writeln('Vvedite zeloe chislo v sisteme schislenia s osnovaniem 2, 8 ili 16');
readln(C);
writeln(fi,'Ishodnoe chislo:',C);             
writeln(fi);
writeln('Vvedite osnovanie sistemi schislenia');
readln(O);
writeln(fi,'Osnovanie sistemi schislenia:',O);
writeln(fi);
 
If O=2 then                {в зависимости от выбранного основания запускаем ту или иную функцию}
R:=Bin_to_Dec(C);
 
If O=8 then
R:=Oct_to_Dec(C);
 
If O=16 then
R:=Hex_to_Dec(C);
 
 
Writeln;
Writeln(fi,'Rezultat v desjatichnoi sisteme schislenia:',R);
Writeln(fi);
Close(fi);                             {закрываем файл с записанными данными}
writeln ('Rezultat sochranen v faile ''rezult.txt". Dlja zawershenia nazmite "Enter"');
readln;
end.