Склавиатуры вводится целое число в интервале от 0 до 15. вывести на экран эквивалент этого числа в шестнадцатиричной системе счисления.

Uses crt; procedure vvod(var s: string; var i,error: byte); begin repeat read(s); val(s,i,error); if error=1 then write('введены не числовые коэфиценты, повторите ввод: '); if ((i> 15) and (i< 0)) then write('число не укладывается в заданный интервал'); until ((error=0) and (i< =15) and (i> =0)); if i< =9 then writeln(i); if i> =10 then begin if (i=10) then s: ="a"; if (i=11) then s: ="b"; if (i=12) then s: ="c"; if (i=13) then s: ="d"; if (i=14) then s: ="e"; if (i=15) then s: ="f"; writeln(s); end; end;