{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************

TP 3, EXERCICE 3}


uses crt;    {unit‚ utilis‚e}

var n,i:integer;          {d‚claration de variables globales}
    divisible:boolean;

const borne=100; {borne sup‚rieure de recherche}

BEGIN    {d‚but du programme}
clrscr;   {efface l'‚cran}
writeln('Calcul et affichage de tous les nombres premiers compris entre 2 et ',borne);
writeln;
for n:=3 to (borne-1) do
    begin
    for i:=2 to round(n/2) do  {d‚but de boucle finie}
        begin
        if (n mod i = 0) then divisible:=true; {algorythme de calcul : si
        le reste de la division entre N et un nombre de [2..N-1] est nul,
        alors il est divisible et non premier}
        end;  {fin de boucle}
    {ci-dessous, bloc conditionnel suivant la valeur de "divisible"}
    if not divisible then write(n, ' ');
    divisible:=false;
    end;
readln;  {astuce pour pause d'‚cran}
END.    {fin de programme}