нок и нод

[Veryn4ik1993]

Нод=24, нок=2496 чисел а и в. Найти эти числа?(Ответ: 24 и 2496 или 192 и 312)
Она у меня выводит разложение, но как мне от этого разложения перейти к числам а и в

program z21;

const
  d = 24;
  k = 2496;

var
  a, b, i: integer; p, a1, b1: integer;

function Nod(a1, b1: integer): integer;
begin
  while (a1 <> 0) and (b1 <> 0) do 
  begin
    if a1 >= b1 then a1 := a1 mod b1
    else b1 := b1 mod a1;
  end;
  nod := a1 + b1;
end;

procedure razl(p: integer);
var
  i: integer;
begin
  i := 2;
  while (p > 1)  do 
  begin
    if (p mod i = 0) then begin
      p := p div i;
      write( i, ' ' )
    end 
    else inc(i)
  end;
end;

begin
  if nod(a1, b1) = 1 then  p := a1 * b1;
 
  p := k div d;
  
  writeln(p);
  razl(p);
  
   a := d * a1;
   b := d * b1;
   writeln(a,b)
  
  
end.