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

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.