Системы Счисления.

var
a:string;
 
FUNCTION OCT2DEC(OCT: STRING): LONGINT;
 
CONST
  OCTSet: SET OF CHAR = ['0'..'7'];
 
VAR
  J    : LONGINT;
  Error: BOOLEAN;
  DEC  : LONGINT;
 
BEGIN
  DEC := 0;
  Error := False;
  FOR J := 1 TO Length(OCT) DO
  BEGIN
    IF NOT (UpCase(OCT[J]) IN OCTSet) THEN Error := True;
    DEC := DEC + (Ord(OCT[J]) - 48) SHL ((Length(OCT) - J) * 3);
    { 8^N = 2^(N * 3) }
    { N SHL ((Length(OCT) - J) * 3) = N * 8^(Length(OCT) - J) }
  END;
  IF Error THEN OCT2DEC := 0
  ELSE OCT2DEC := DEC;
END;
 
begin
writeln('Введите число в 8-ой системе счисления: ');
   readln(a);
   writeln(oct2dec(a));
readln;
end.

unit Conv;
 
interface
 
var Figures : array[byte] of char;
 
function Num2Str(number:word; base:byte):string;
function ChangeBase(number:string; base_prev,base_next:byte):string;
function Str2Num(number:string; base:byte):word;
 
implementation
 
function Num2Str(number:word; base:byte):string;
var r:string;
begin
r:='';
while number<>0 do
      begin
           r:=Figures[number mod base]+r;
           number:=number div base;
      end;
if r='' then r:='0';
Num2Str:=r;
end;
 
function Str2Num(number:string; base:byte):word;
var r:word; i,a:byte;
begin
r:=0;
for i:=1 to length(number) do
    begin
         a:=0;
         while Figures[a]<>number[i] do inc(a);
         r:=r*10 + a;
    end;
Str2Num:=r;
end;
 
function ChangeBase(number:string; base_prev,base_next:byte):string;
begin
     ChangeBase:=Num2Str(Str2Num(number,base_prev),base_next);
end;
 
var aaa:byte;
begin
for aaa:=0 to 9 do Figures[aaa]:=chr(aaa+48);
Figures[10]:='A';
Figures[11]:='B';
Figures[12]:='C';
Figures[13]:='D';
Figures[14]:='E';
Figures[15]:='F';
end.

program Example;
uses Conv;
var n:byte;
begin
readln(n);
write('> ',ChangeBase(Num2Str(n,10),10,2));
end.