Problema de los numeros primos.

Programa que diga si el numero tecleado es un numero PRIMO o NO PRIMO.

EL CODIGO SERA:

program numeros primos;

uses

crt;

var

numero:integer;

x:integer;

const

a=2;

begin

writeln('Escribe un numero');

readln(numero);

x:=numero mod 2;

if(x=0)then

writeln('Este numero no es primo')

else

writeln('Este numero es primo');

readln;

end.