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.