Très bien.

Remarque : L'instruction '' if ((cmp<2)or(cmp=2)) then '' peut être simplifiée par '' if (cmp<=2) then ''

Program Premier;
Var N, num, i, a, cmp : integer;
Begin
WriteLN('Introduire un nombre N supérieur à 1');
ReadLN(N);
WriteLN('Les nombres premiers compris entre 1 et N sont :');
for num:=2 to N do
 begin
  i:=0;
  cmp:=0;
  repeat
   i:=i+1;
   a:=num mod i;
   if (a=0) then cmp:=cmp+1;
  until (i=num);
  if ((cmp<2)or(cmp=2)) then Write(num,' ');
 end;
WriteLN;
End.