Número Primo

En Jamon del Medio el 2007.10.08

PROGRAM PRIMO; {*TO VERIFY IF A NUMBER IS PRIME UP TO MAX LONGINT=2147483647 (-1)*} USES CRT; VAR PRI:BOOLEAN; X,I,INEW,ITER:LONGINT; BEGIN CLRSCR; WRITELN('.............................................'); WRITELN('.Rutina para verificar si un número es primo.'); WRITELN('.............................................'); WRITELN; WRITE('Ingrese un número entero: '); READLN(X); IF (X MOD 2 = 0) AND (X > 2) THEN BEGIN WRITELN; WRITELN('El número ingresado es divisible por 2.'); READKEY; END ELSE; BEGIN...