Из множества чисел [1 .. n] выделить подмножество чисел вида p2, где p - простое.

program prime;                                                                
const                                                                         
  n=10000;                                                                    
var                                                                           
  i, s: Integer;                                                              
  b: array[1..n] of Boolean;                                                  
begin                                                                         
  writeln(1);                                                                 
  for i:=2 to n do                                                            
  begin                                                                       
    if not b[i] then                                                          
      writeln(i);                                                             
    s:=i*2;                                                                   
    while s<=n do                                                             
    begin                                                                     
      b[s]:=True;
      s:=s+i
    end
  end
end.