Hola, necesito ayuda con este programa para que sume numeros primos entre dos limites pedidos, la cual tiene un error.
Código Delphi
[-]
type
positivo=0..MaxInt;
var
suma,factor,numero,min,max: positivo;
primo:Boolean;
begin
readln(min,max);
suma:=0;
for numero:= min to max do
begin
IF (numero) mod 2= 0 and (numero<>2 then
primo:=False
else
begin
factor:=3;
primo:=True;
repeat
if (numero mod factor)=0 then
primo:=False
else
factor:=factor+2
until factor>Sqrt(numero) or primo = False;
end;
if primo then
suma:=suma+numero;
end;
write('la suma es ',suma);
Readln;
end.