procedure SumNumberPrime(RangoI, RangoF : Integer);
var
i,j : Integer;
rn : integer;
Prime : Boolean;
SumPrime : Int64;
begin
SumPrime := 0;
for i := RangoI to RangoF do
begin
Prime := True;
rn := Trunc(sqrt(i));
for j := 2 to rn do
begin
if (i mod j) = 0 then
begin
Prime := False;
break;
end;
end;
if Prime then
SumPrime := SumPrime + i;
end;
Showmessage(Format('La Suma de los Números Primos entre %d y %d es: %d',[RangoI, RangoF, SumPrime]));
end;