Algoritmo para ler um número inteiros positivo e informar se este número é primo ou não.

//Faça um algoritmo para ler um número inteiros positivo e informar se este número é primo ou não.

Program numero_primo ;

Var N, i: integer;

verdade: boolean;

Begin

writeln('Informe um numero: ');

readln(N);

if (N < 2) then

begin

writeln('Ola,', N ,' nao eh numero primo');

end

else

begin

i:=2;

verdade:= true ;

while (i<N) and (verdade) do

begin

if (N mod i = 0) then

begin

verdade:= false ;

end ;

i:= i+1 ;

end;

if (verdade) then

Begin

writeln(N, ' eh um numero primo');

End

else

Begin

writeln(N, ' nao eh um numero primo, porque eh divisivel por ', i-1);

End;

end;

readln;

End.