Тема: Множества (Pascal)

[quakenez]

Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые числа, а второе - все составные

Объясните, как работает эта программа


const n=10;
type m=set of 1..n;
var i,j:integer;
s,s1:m;
f:boolean;

begin
s:=[];s1:=[];
for i:=1 to n do
begin
f:=true;
for j:=2 to i-1 do
if i mod j=0 then f:=false;
if f then s:=s+[i]
else s1:=s1+[i];
end;
for i:=1 to n do
if i in s then write(i,' ');
writeln;
for i:=1 to n do
if i in s1 then write(i,' ');
end.