hace mucho hice un programa que saque numeros primos
Código Delphi
[-]numero:=3;while (numero <= numeroFinal) dobegin
esPrimo:= numero mod 2 <> 0;
compara:= 3;
while (compara <= sqrt(numero) and esPrimo)do
begin
esPrimo:= numero mod compara <> 0;
inc(compara,2);
end;
if esPrimo then showmessage(IntToStr(numero));
inc(numero,2);
end;