14 task n2

begin
  var a := 2395;
  var a_2 := '';
  var alp := '0123456789ABCDEFGH';
  while (a>0) do
  begin
    a_2 += (alp[(a mod 16)+1]).ToString;
    a := a div 16;
  end;
  print(a_2);
end.