premiers v1

----------------------------------------------------------------
--  *  premiers.adb
--  *  Role :
----------------------------------------------------------------
with entrees_sorties; use entrees_sorties;

procedure premiers is
  nb1, nb2 : Integer;
  nbMin, nbMax : Integer;
  nbCurr : Integer;
  nbTest : Integer;
  estPremier : Boolean;
begin

  put("Donnez un nombre entier strictement positif : ");
  get(nb1);

  put("Donnez un nombre entier strictement positif : ");
  get(nb2);

  if(nb1 < nb2) then
    nbMin := nb1;
    nbMax := nb2;
  else
    nbMin := nb2;
    nbMax := nb1;
  end if;

  nbCurr := nbMin;

  while(nbCurr <= nbMax) loop

    estPremier := TRUE;
    nbTest := 2;
    while(nbTest < nbCurr AND estPremier) loop

      if((nbCurr mod nbTest) = 0) then
    estPremier := FALSE;
      end if;

      nbTest := nbTest + 1;
    end loop;

    put(nbCurr);

    if(estPremier) then
      put(" est premier");
    else
      put(" n'est pas premier");
    end if;

    new_line;

    nbCurr := nbCurr + 1;
  end loop;

end premiers;