Nombre premier pascal

Bonjour,
a tous j'ai un petit probleme dans un algorithme que je dois faire , alors je dois trouver un algorithme qui :quand on entre une valeur 'n' il nous donne les n premier "nombre premier " , ,, je connais deja tres bien l'algo pour determiner si un nombre est premier ou pas mais je sais pas comment faire pour celui ci

merci de m'aider
Configuration: Windows XP
Opera 9.51

2 réponses

  1. une reponse silvouplait
    1. une aide silvouplait
      1. program premier;
        uses wincrt;
        var
        n,r,i:integer;
        begin
        write('Donnez un entier naturel : ');
        read(n);
        r:=0;
        for i:=1 to n do
        if n mod i = 0
        then r:=r+1;
        if r=2
        then write('le nombre est premier')
        else
        write('le nombre n'est pas premier');
        end.