program primos;

var i,x,qnt:integer;

num:array[2..1000] of boolean;



BEGIN

qnt:=0;

{inicialmente todos os numeros sao primos!}

for i:=2 to 1000 do begin

num[i]:= true;

end;

{processo de verificação dos primos}

for i:=2 to 1000 do begin

  x:=2;

  while i*x <=1000 do begin

  num[i*x]:= false; {nao eh primo}

  x:=x+1

  end;

  end;

  

  {imprimir os números}

  for i:=2 to 1000 do begin

  if num[i] = true then

  write(i,' ');

  qnt:=qnt+1;

  end;

      

END.