помогите составить программу в паскале по множествам

Question

Чтобы она из диапазона натуральных чисел 1..100 определяла все простые числа. 
чтобы в программе использовались множества

Римма · Accepted Answer

по множествам, простые, диапазон натуральных, использовались множества - фиг поймешь, чего тебе надо! 
 
Слабо было сразу написать, дескать мне надо решето Эратосфена. 
 
const n=100; 
type t=1..n; 
var s:set of t; 
 k,m:t; 
begin 
 s:=[]; 
 for k:=2 to n do s:=s+[k]; 
 for k:=2 to trunc(sqrt(n+1)) do if k in s then begin 
 m:=2*k; 
 while m<=n do begin s:=s-[m]; inc(m,k); end; 
 end; 
 for k:=1 to n do if k in s then write(k:8); 
end.