C :

#include <stdio.h> 
#include <math.h> 
int main() 
{  
    int i,j;  
    int a[100];  
    for(i=0;i<100;i++)   
    {
    	a[i]=i+1;  
    }
    for(i=1;i<100;i++)  
    {   
        if(a[i]==0)
            continue;   
        for(j=i+1;j<100;j++)
        {
        	if(a[j]%a[i]==0)
                a[j]=0;  
        }    
    }  
    for(j=1;j<100;j++)    //j从1开始，去除a[0]（其值为1），因为1既不是质数，也不是合数   
    {
    	if(a[j]!=0)    
        {
        	printf("%d ",a[j]); 
        }    
    }     
    return 0;
}

C++ :

#include <stdio.h> 
#include <math.h> 
int main() 
{  
    int i,j;  
    int a[100];  
    for(i=0;i<100;i++)   
    {
    	a[i]=i+1;  
    }
    for(i=1;i<100;i++)  
    {   
        if(a[i]==0)
            continue;   
        for(j=i+1;j<100;j++)
        {
        	if(a[j]%a[i]==0)
                a[j]=0;  
        }    
    }  
    for(j=1;j<100;j++)    //j从1开始，去除a[0]（其值为1），因为1既不是质数，也不是合数   
    {
    	if(a[j]!=0)    
        {
        	printf("%d ",a[j]); 
        }    
    }     
    return 0;
}

Pascal :

var i,j,k,l,m,n:longint;
  a:array[1..100]of integer;
begin
  for i:=1 to 100 do
    a[i]:=1;
  a[1]:=0;
  for i:=2 to 50 do
    for j:=2 to 100 div i do
      a[i*j]:=0;
  m:=0;
  for i:=1 to 99 do
    if a[i]=1 then write(i,' ');
  if a[100]=1 then write(100);
end.