Информатика, задачи на логику

[BDA]

Имея 2 четырехзначных числа A и B.
Примерно:

k1 := [];
k2 := [];
n := 0;
m := 0;
for i := 1 to 4 do
begin
  if (a mod 10) = (b mod 10) then
    inc(n)
  else
  begin
    k1 := k1 + [a mod 10];
    k2 := k2 + [b mod 10];
  end;
  a := a div 10;
  b := b div 10;
end;
k := k1 * k2;
for i := 0 to 9 do
  if i in k then
    inc(m);