procedure ConvertExtended 19it(C: Char; var V: Iloolean;var 0: OigitRange); ConvertExtendedOigit 'termines whether C is an extended digit, setti validity, and if V is numerical value of th I V to indicate its !.!ue sets 0 to the extended digit. 'lit } begin { ConvertExtendedO V : = C in [ '0' .. ' 9' , ' ','b' ,'e' I'd' ,'e' ,'f', , ','B','C','D','E','F' ]; if V then case C of , 0' : 0 .- 0; , l' : :) .- 1; , 3' : 0 3; , 4' : D 4; , 6' : 0 .- 6; , 7' : D .- 7; , 8' : 0 .= 8; , 9' : D .= 9; 'A' ,'a' : 0 10; 'B', 'b' 'C' , ' c' : 0 12; , 0' , 'd' 'E' , 'e' : 0 14' , F' , ' f' end end ConvertExtendedOigi ' } ; begin ReadRadixRepresenta' .on E := true; ConvertExtendedOigit (Fl, V, I I) ; if V then begin E := false; S:= 0; repeat if 0 < R then , 2' : , 5' : : 0 .= : 0 .= : 0 if (Maxint - 0) d R >= S then begin S := S * R + : Get(F); 0 .= 0 .- 11; 13; 15; ConvertExtend· l:'igit (Fl,v,d); end else E := true else E := true until E or not V; if not E then X := S end end { ReadRadixRepresentati, I. 2; 5; 

