Numeros primos

program numeros_primos;
uses
crt;

var
num:integer;
y:integer;

const
a=2;

begin
clrscr;
writeln('Escribe un numero para saber si es primo');
readln(num);
y:=num mod a;
if(y=0)then
writeln('El numero no es primo')
else
writeln('El numero es primo');
readln;
end.
program numeros_primos;
uses
crt;

var
num:integer;
y:integer;

const
a=2;

begin
clrscr;
writeln('Escribe un numero para saber si es primo');
readln(num);
y:=num mod a;
if(y=0)then
writeln('El numero no es primo')
else
writeln('El numero es primo');
readln;
end.

click para descargar