Множества. Поиск близнецов.

[eduard.80@mail.ru]

З множини чисел [1..n] виділити підмножину простих чисел p, таких, що p+2– просте число (пошук “близнят”).
Это условие. Используя инфу на форуме нацарапал следующее:

program LAB811;
        uses crt;
        const n=255;
        function prost(x:  longint): boolean;
                 var i: integer;
                     begin
                          prost:=false;
                          if x<2 then Exit;
                          if not odd(x) and (x<>2)
                             then exit;
                          i:=3;
                          while i <= sqrt(x) do
                                begin
                                 if x mod i = 0 then Exit;
                                 inc(i,2);
                                 end;
                                 prost:=true;
                          end;
        var i:integer;

        begin
        clrscr;
        for i:=2 to n do
             if prost(i) and prost(i+2) then
                writeln(i,' ');
        end.

Программа работает. Вот только мне это всё нужно сделать используя множества(((
Как это дело прикрутить к множествам?

[eduard.80@mail.ru]

Есть ещё вот такая прога:

Program prost;
        uses crt;
        Const n = 255;
        Var A,B: set of 2 .. n ;
              i, Min : integer ;
        Begin

             A:=[2 .. n] ;
             B:=[];
             Min := 2;
              While A <> [] do
              begin
                   While not(Min in A) do
                    Min := Min + 1;
                    B :=B + [Min] ;
                   For i := 1 to n div Min do
                    A := A - [i*Min];
              end;
        Writeln('Простые числа*:');
         For i := 1 to n do
         If i in B then write(i,' ');

 End.

Но с ней я не могу разобраться, как вообще действуют эти множества?
Если я пытаюсь сделать так:

 If i+2 in B then include(C,i)

оно материтсу???(((

[eduard.80@mail.ru]

Хоть отзовитесь, что ли...