алгоритм нахождения простых чисел

[Pein95]

Клиент банка забыл четырехзначный шифр своего сейфа, но памятав, что этот шифр простое число произведение его цифр = 243 за какое наименьшее количество попыток он сумеет открываемой сейф
я реализировал нахождения всех четырехзначных чисел произведение каких =243 но как теперь из етих чисел вібрать простіе
вот код

Program kj;
const
d=243;
var
a,b,c,k:integer;
 begin
  for a:=1 to 9 do
  for b:=0 to 9 do
  for c:=0 to 9 do
  for k:=0 to 9 do
  if a*b*c*k=d then
  writeln(a,b,c,k);
  readln;
end.

[alex_fcsm]

Функцию для определения простых чисел неоднократно обсуждали)

function isSimple(X: LongInt): boolean;
var i: integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if not odd(x) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     while i <= sqrt(x) do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;

If a*b*c*k=d and IsSimple(a*1000+b*100+c*10+d) then writeln();

[Pein95]

спс за помощь)