С клавиатуры вводится целое число в интервале от 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;