Bonjour, je commence à apprendre le pascal.Je voudrais ecrire un programme permettant d'afficher tous les nombres premiers jusque 30000:voici mon prog.:

program nbres_premiers;
var x,i:integer;
begin

x:=2;
i:=2;

while (x<>30) do;
begin
while (i<>x) or (x mod i <>0) do;
begin
i:=i+1;
end;


if (x mod i=0) and (x<>i) then x:=x+1
else writeln (x, 'est un nombre premier');

x:=x+1;
i:=2;
end;

readln
end.

Comme vous vous en doutez ça marche pas , si vous pouviez m'aiguiller...ça serait pas de refus.

Configuration: Linux
Firefox 3.0.14