No se... tal vez una variable capaz de guardar un número de cientos de cifras... xD...
Si quieren ver el código del programa, es este:
Código:
De antemano muchas gracias! Program Primos;
var
numero : integer;
contador : longint;
interruptor: longint;
begin
writeln('Escribe el numero que deseas saber si es primo');
readln(numero);
for contador := 2 to numero-1 do
begin
if numero mod contador = 0 then
interruptor := 1;
end;
if interruptor > 0 then
begin
writeln(numero,' no es primo.');
readln;
end
else
writeln(numero,' es primo.');
readln;
end.


