Este es el codigo de pascal para resolver si un numero es primo o no:

Program uses crt; var num1,y:integer; const a=2; begin clrscr; writeln('dame un numero y te dire si es primo o no'); readln(num1); y:=num1 mod a; if (y=0) then writeln('El numero no es primo') else writeln('El numero es primo'); readln; end.

NUMEROS PRIMOS