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 

Answer 2

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:set of integer:=[];
  for var i:=1 to 254 do begin
    var flag:=True;
    var j:=2;
    var r:=round(sqrt(i));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then
      if i mod 4=3 then s+=[i]
    end;
    foreach var x in s do Print(x);
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