Question

Создайте множество, состоящее из простых чисел < 255 и
дающее при делении на 4 остаток 3. Напечатайте элементы
этого множества.

Answer 1

Var i,j,k: integer;
    a: set of integer;
begin
  i:=3; a:=[];
  repeat
    k:=0;
    for j:=2 to trunc(sqrt(i))+1 do
    if (i mod j)=0 then
    begin
      k:=1;
      break;
    end;  
    if k=0 then a:=a+[i];
    i:=i+4;
  until i>256;
  writeln(a);
end.

83 79 167 163 251 71 67 151 239 59 139 227 47 223 43
131 127 211 31 23 199 19 107 103 191 11 7 3 179