Определение простых и составных делителей!

[Alexbmgn]

1.Заданы два целых числа М, N. Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N.

Прошу подскажите алгоритмы нахождения, голова уже пухнет.
Мне необходимо лишь знать алгоритм нахождения этих самых делителей ( в особенности составных).

[Abstraction]

Самый простой способ поиска делителей - для каждого числа d от 1 до Х проверить, равен ли остаток от деления X на d нулю.
Число X простое, если единственные делители на этом пути - единица и X, иначе - составное.

[Alexbmgn]

Дай вам Бог здоровья!

[Alexbmgn]

Вот вариант моего кода если кому надо, наверняка не самый оптимизированный, ну я и не гуд кодер собственно

var n,i,kol,pro,m:integer;
begin
kol:=0;
pro:=1;
writeln('Введите первое число');
readln(n);
n:=n+1;
writeln('сумма простых делителей этого числа= ',n);
writeln('Введите второе число');
readln(m);
repeat
kol:=0;
pro:=1;
writeln('Число простое, кол-во его делителей = 2 ', 'Введите другое число');
readln(m);
for i:=1 to m do
begin
if m mod i=0 then
kol:=kol+1;
if m mod i=0 then
pro:=pro*i;
end;
until kol>2;
begin
if n>pro then writeln('сумма простых делителей первого числа равная ',n, ' > ', ' произведения составных делителей второго числа равного ', Pro);
if n<pro then writeln ('сумма простых делителей первого числа равная ',n, '<', 'произведения составных делителей второго числа равного ', Pro);
end;
end.


Хотя есть подозрения что для второго числа нужно умножить лишь все делители кроме 1 и самого числа, тогда цикл будет для него от 2 до "числа"-1;

[Alexbmgn]

эмм код неверный, не берите его)) додумаю исправлю)

[Zer0]

var i,n,m,summ,mult:integer; res:string;


function isSimple(n:integer):boolean;
var i:integer;
begin
 if n<2 then isSimple:=false
 else
 if n<=3 then isSimple:=true
 else begin
 isSimple:=true;
 for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then begin
   isSimple:=false;
   break;
  end;
 end;
end;

begin
write('Введите первое число: ');
readln(n);
write('Введите второе число: ');
readln(m);
summ:=0;
for i:=2 to m do
 if m mod i =0 then
  if isSimple(i) then summ:=summ+i;
mult:=1;
for i:=4 to n do
 if n mod i = 0 then
  if (not isSimple(i)) then mult:=mult*i;
if summ>mult then res:='больше' else res:='не больше';
wrtiteln ('Сумма простых делителей числа М '+res+' произведения составных делителей числа N');
end.