Algorimo e codice pascal per trovare se un numero è primo

Oggi vediamo come creare un programma per verificare se un numero è primo o no.

i numeri primi sono divisibili solo per 1 e per se stessi e per verificare se un numero è primo o no basta vedere se il resto della divisione tra il numero e 2 e il numero e 3 è uguale a 0 se almeno uno dei casi è vero allora il numero non è primo.

ecco il codice in pascal:

program Numeriprimi;

uses crt;

var

n:longint;

c:char;

begin

repeat

 clrscr;

 gotoxy(33,1);

 textcolor(black+blink);

 textbackground(10);

 write(' NUMERI PRIMI ');

 gotoxy(1,3);

 textcolor(10);

 textbackground(black);

 write('Verifica se un numero è primo');

 delay(500);

 gotoxy(1,5);

 write('Scrivi il numero che vuoi verificare: ');

 read(n);

 if( n= 2) or (n= 1) or (n=3) then

                     begin

                     gotoxy(1,7);

                     textcolor(12);

                     write('Il numero ',n,' è PRIMO');

                     end

                     else

                     if n mod 2 = 0 then

                                    begin

                                    gotoxy(1,7);

                                    textcolor(12);

                                    write('Il numero ',n,' NON è PRIMO');

                                    end

                                    else

                                    begin

                                    if n mod 3 = 0 then

                                                   begin

                                                   gotoxy(1,7);

                                                   textcolor(12);

                                                   write('Il numero ',n,' NON è PRIMO');

                                                   end

                                                   else

                                                   begin

                                                   gotoxy(1,7);

                                                   textcolor(12);

                                                   write('Il numero ',n,' è PRIMO');

                                                   end;

                                    end;

  gotoxy(1,9);

  textcolor(10);

  write('Vuoi verificare un altro numero (y/n)? ');

  c:= readkey;

  until  c <> 'y';

  gotoxy(1,11);

  write('USCITA!');

  delay(1000)

end.