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

Вот, к примеру, выполнение подобной программы (немного модифицированной под требования Free Pascal) на сайте IDEONE: 3 7 11 19 23 31 43 47 59 67 71 79 83 103 107 127 131 139 151 163 167 179 191 199 211 223 227 239 251

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 43131 127 211 31 23 199 19 107 103 191 11 7 3 179