nombre premier version 1

ÉNONCÉ
Ecrire une analyse, un algorithme et une traduction pascal d’un programme intitulé PREMIER permettant de saisir un nombre N est d’afficher s’il est premier ou non.
En déduire l’algorithme permettant d’afficher tous les nombres premiers situés entre 1 et 100 (un entier est premier s’il est divisible uniquement par 1 et par lui-même )
PASCAL
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.

{l’idée ici est simple, si on trouve uniquement deux diviseurs pour cet entier, il est premier, mais si ce nombre est>2, donc il y a autres diviseurs que 1 et l’entier lui-même}