10 в 16-тиричной перевести в десятичную:)

16 вроде как,если я поняла,твое задание

s := 'abcdef';while (n > 0) dobegint := n mod 16;if (t <= 9) then write( t ) else write( s[ t-9 ] );n := n div 16;end;