число Смита!

[Snake08]

Известно, что число Смита - это такое составленное число, сумма цифр которого равняется сумме цифр всех его простых сомножителей. Так, примером числа Смита может служить 202, поскольку 2+0+2=4, і 2+1+0+1=4 (202=2*101).
Найдите количество чисел Смита на промежутке [N, M], где 0<N,M<=30000.
Формат входных данных. ВО входном файле input.txt содержат числа N и M разделенные пропуском.
Формат исходных данных. В исходный файл output.txt вывести количество чисел Смита.
Пример входных и исходных данных.
input.txt
200 205
output.txt
1

[alex_fcsm]

uses crt;
var n,m,i,l,sum,obr,kol:integer;
    f:text;

function IsSimple(x:integer):boolean;
var j:integer;
begin
IsSimple:=true;
 for j:=2 to x-1 do
  if x mod j=0 then IsSimple:=false;
end;

function Dig(x:integer):integer;
var s:string;
    p,code,e,b:integer;
begin
str(x,s);
e:=0;
for p:=1 to length(s) do
 begin
  val(s[p],b,code);
  e:=e+b;
 end;
Dig:=e;
end;

begin
clrscr;
assign(f,'c:\1.txt');
reset(f);
read(f,n);read(f,m);
close(f);
kol:=0;
for i:=n to m do
 begin
  sum:=0;
  obr:=Dig(i);
  for l:=2 to i-1 do
   if i mod l=0 then begin
                       if IsSimple(l) then sum:=sum+Dig(l);
                     end;
  if (sum=obr)and(not(IsSimple(i))) then begin
                                          writeln(i);
                                          inc(KOL);
                                         end;

 end;

 assign(f,'c:\2.txt');
 rewrite(f);
 write(f,kol);
 close(f);
end.

[Snake08]

спасибо огромное!
Только не мог бы ты ко всем 3 моим задачам обяснения хода роботы написать!
Пожалуйста!