N premiers nombre premier

var N,i,j,k;
ecrire("saisir N: ");
lire(N);
j <- 2;
i <- 0;
tant que i<N faire
	k <- 2;
	tant que k < j && j%k!=0 faire
		k <- k+1;
	fin tant que
	si k=j faire ecrire(i,"eme nombre premier: ",j); fin si
	j <- j+1;
fin tant que