Создать программу кторое получает множество всех общих шестнадцатеричных цифр, трех наутральных чисел А,В,С

const h: array [0..15] of char = ('0', '1', '2', '3', '4', '5', '6', '7',
                                  '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
type st = set of char;
procedure inp(var n: integer; c: char);
begin
  write(c, ' = '); readln(n);
end;
 
procedure hh(n: integer; var s: string);
begin
  s := '';
  while n > 0 do
    begin
      s := h[n mod 16] + s;
      n := n div 16
    end;
end;
 
procedure ss(s: string; var k: st);
var i: integer;
begin
  k := [];
  for i := 1 to length(s) do k := k + [s[i]]
end;
 
var a, b, c: integer;
    sa, sb, sc: string;
    ma, mb, mc, m: st;
    i: integer;
 
begin
  inp(a, 'A'); inp(b, 'B'); inp(c, 'C');
  hh(a, sa); hh(b, sb); hh(c, sc);
  writeln('A(hex) = ', sa); writeln('B(hex) = ', sb); writeln('C(hex) = ', sc);
  ss(sa, ma); ss(sb, mb); ss(sc, mc);
  m := ma * mb * mc;
  if m = []
    then write('No common digits')
    else begin
      write('Common digits: ');
      for i := 0 to 15 do if h[i] in m then write(h[i], ' ')
    end;
  readln
end.