Programme qui détermine si un nombre est premier [Fermé]

program premier;
uses wincrt; 
var n,r,i:integer; 
begin 
write('Donnez un entier naturel : '); 
read(n); 
i:=1    ;
repeat
i:=i+1;

 

until(n mod i=0) or (i=n-1);
if n mod i=0 then
   writeln( ' n est pas premier')
   else
    writeln(' premier');
end.