Número Primo (Programa Pascal)

program primos; uses crt;

var

     n, primo, divisor, residuo: integer;

     seguir:char;

     bandera:boolean;

begin

      bandera:=true;

     while bandera do

          begin

               clrscr;

writeln(‘Programa para determinar si un numero es o no Primo.’);

writeln;

write(‘Ingrese el numero a analizar: ‘);

n:=0; { Inicializar las variables a ser usadas}

primo:=0;

divisor:=2;

residuo:=0;

readln(n);

divisor:= n div 2;

while divisor<>1 do

begin

residuo:= n mod divisor;

if residuo=0

then

primo:=primo+1;

divisor:=divisor-1;

end;

if primo=0

then

writeln(n,’ es un numero primo.’)

else

writeln(n, ‘ no es un numero primo’);

write(‘Desea analizar otro número? (s/n)’);

readln(seguir);

if seguir<>’s’

then

bandera:=false;

end;

end.