c:/gdsf/web/fuentes_pascal/PRIMO.PAS

PROGRAM EJER56;
USES CRT;
VAR i, num, flag : INTEGER;
BEGIN
CLRSCR;
flag := 0;
WRITE ('Introduzca un numero -> ');
READLN (num);
FOR i := 2 TO (num - 1) DO
      BEGIN
      IF (num MOD i) = 0 THEN
         flag := 1;
      END;
IF flag = 1 THEN
     BEGIN
     WRITE (num);
     WRITE (' no es un numero primo');
     END
ELSE
     BEGIN
     WRITE (num);
     WRITE (' es un numero primo');
     END;
END.