Множество пар простых чисел - PascalABC.NET

Формулировка задачи:

Составить множество всех пар простых чисел на интервале от 1 до 255. Помогите, пожалуйста, решить.

Решение задачи: «Множество пар простых чисел»

Листинг программы

type pary=record
          x,y:byte;
          end;
 var s:set of pary;
     p:pary;
     n:byte;
     a:array[byte] of byte;
     b:array[byte] of boolean;
begin
//составим массив простых чисел используя решето Эратосфена
for var i:=2 to 255 do b[i]:=true;
for var i:=2 to 15 do
for var j:=2 to 255 div i do b[i*j]:=false;
writeln('Множество простых чисел в диапазоне [1..255]');
n:=0;
for var i:=1 to 255 do
if b[i] then 
 begin
  inc(n);
  write(i:4);
  a[n]:=i;
 end;
writeln;
//составим множество пар
s:=[];
for var i:=1 to n-1 do
for var j:=i+1 to n do
 begin
  p.x:=a[i];
  p.y:=a[j];
  include(s,p);
 end; 
writeln('Пары простых чисел');
foreach p in s do
write(p,' ');
end.

Объяснение кода листинга программы

В этом коде:

Создается структура pary для хранения двух чисел (x и y), а также объявляются переменные s, p, n и массивы a и b.
Заполняется массив b значениями true, указывающими, что число является простым.
Реализуется алгоритм Решета Эратосфена для составления массива простых чисел.
Выводится список простых чисел в диапазоне от 1 до 255.
Создается пустое множество s для хранения пар простых чисел.
Для каждой пары простых чисел (i, j) таких, что i < j и i и j являются простыми, создается объект p типа pary, его поля заполняются значениями i и j, и этот объект добавляется в множество s.
Выводится список пар простых чисел. Код использует алгоритм Решета Эратосфена, который позволяет эффективно находить все простые числа в заданном диапазоне.