Algoritmo para ler um valor inteiro N e escrever os N primeiros números primos.

//Faça um algoritmo para ler um valor inteiro N e escrever os N primeiros números primos.

Program project1 ;

Var N, i,k: integer;

verdade: boolean;

Begin

writeln('Informe um numero: ');

readln(N);

if (N < 2) then

begin

writeln('informe N maior que 2');

end

else

begin

for k:=2 to N do

begin

i:=2;

verdade:= true ;

while (i< k) and (verdade=true) do

begin

if (k mod i = 0) then

begin

verdade:= false ;

end ;

i:= i+1 ;

end;

if (verdade=true) then

Begin

writeln(' primo: ', k );

End;

end;

end;

readln;

End.