Создайте множество, состоящее из простых чисел < 255 и

дающее при делении на 4 остаток 3. Напечатайте элементы

этого множества.

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