Составить программу (Паскаль)

[Minney-Mouse]

Составить программу, позволяющую выяснить, есть ли у N два простых делителя. Очень надо. Помогите, пожалуйста. Заранее спасибо.

[Zer0]

hasPrimeDelimeters:=false;
for i:=2 to n-1 do
for j:=i+1 to n do
 if (n mod i=0) and (n mod j=0) then
  if (isSimple(i) and (isSimple(j)) then 
   hasPrimeDelimeters:=true;

функция isSimple - должна вычислять, является ли переданное число простым
Реализаций - множество, сегодня только писал эту функцию на форуме, поищите