lab5v9.pas

program lab5v9;
{$codepage utf8}
uses Math;
var e:Single;
  a,b:String;
  c,d:Word;

function baseX_to_dec(s:String;dict:String):Word;
var i,k:Byte; r:Word;
begin
  r:=0;
  for i:=1 to Length(s) do
  begin
  k:=Pos(s[i],dict); //ex. '0123456789ABCDEF'
    if k>0 then begin //valid number
      r:=r+Length(dict)**(Length(s)-i)*(k-1);
    end else WriteLn(s,': Parsing error at position ',i)
  end;
  basex_to_dec:=r;
end;

begin //main
     WriteLn('Input two integers, base 8 (000..777) and base 4 (000..333):');
     ReadLn(a);
     ReadLn(b);
     c:=baseX_to_dec(a,'01234567');
     d:=baseX_to_dec(b,'0123');
     e:=c/d;
     WriteLn('In decimal, ',c,' over ',d,' is equal to ',e:0:4);
end.